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IDENTIFICATION 
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GENERAL DESCRIPTION 


THe PBP=1i AND AN Ten 3e0 ze °6” COnRU Ms {i Lge — Secet 


DXi1-B CONTRO EMULATES AN IBM CRT 
(2260) AND TTS CON NTR OL TONIT. ery COMUNECHT IM OVER 
EITHER A MULTIPLEXER OR SELECTOR CHANNEL. THE 360/370 


EXERCISES THE INTERFACE BY RUNNING STANDARD IBM DIAG- 
NOSTICS DESIGNED TO TEST THE 2260/2848; FRIEND OR THE 


CZ0x1B.D0C 
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2848 RESPONDER. UP TO EIGHT 2260'S MAY BE EMULATED 


fu 


mm Tw 


oO 


io 


SIMULTANEOUSLY BY THE °p OGRAM 
BASICALLY THE dt ae rr PROGRAM COLLECTS THE TEST 


PARAMETER J al Gentes pokes ae > ee Mega 
THE Meyer a “PETER YST a Ae 6 EN N TALI 120 THE 
QPERAT ot 16st o) oh i. mg y FF PING 

ANDO re OBE GIRS ots T 072646. 
THE SYSTEM Test PR BASIC Seton, 


THIS PROGRAM COMPLETELY REPLACES AND OBSOLETES 
MD-11-DZDxc. 


REQUIREMENTS 

EQUIPMENT 

A. PDP-11 COMPUTER WITH A MINIMUM OF 8K OF MEMORY. 

B. DX11-B 360/370 INTERFACE OPTION. 

C. ONE CONSOLE TELETYPE OR EQUIVALENT. 

STORAGE 

THE TEST PROGRAM LOADS INTO Wk OF MEMORY AND REQUIRES AT 

LEAST ANOTHER 4K FOR DATA BUFFERS. WITH 4 MORY 
DEVICES (6) may BE EMULAT TEC. 


FOR pare BUF FERS, UP_TO SIX 
TO EMULATE EIGHT’ 2260/2848 DEVICES 8K OF MEMO DATA 
BUFFERS IS REQUIRED. 


STORAGE MAP 
THE FOLLOWING MAP_ILLUSTRATES ae | USAGE OF MEMORY 
BY THE DX11-B SYSTEM TEST PROGRA 
RE MAP 
I I 
0-777 I INTERRUPT VECTORS I 
I (256 WORDS) I 
I I 
1006-17777 I DX11-6 TEST PROGRAM I 
I (4K WORDS) I 


I I 
¥O-X777 i SPW TABLE ; 


S 93003 


EO] 
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bf * 
X1000-X1777 tT TUMBLE TABLE i 
I (256 WORDS) I 
I I 
X2000-x2777 I DUPLICATE TUMBLE TABLE I 
; (256 WORDS) 1 
I I 
x3000-x3377 I OST TABLE I 
I (128 WORDS) I 
I I 
X3490-%3475 I SOFTWARE DEVICE STATUS TABLE (DEV 0)! 
I 31 WORDS) I 
I I 
X3476-x4437 I INPUT BUFFER (DEV O)1 
I (241 WORDS) I 
I I 
X4440-X5377 I OUTPUT/DISPLAY BUFFER (DEV O)1 
I C240 WORDS) I 
I I 
xS400-xS475 I SOFTWARE DEVICE STATUS TABLE (DEV 1)1 
I (31 WORDS) I 
I I 
¥S476-x6437 T INPUT BUFFER (DEV 1)I 
I (241 WORDS) I 
I I 
X&440-x7277 I OUTPUT/DISPLAY BUFFER (DEV 101 
I C240 WORDS) I 


VIC UP TO 8). 
EACH DEVICE EMULATED REQUIRES Sle 


I I 
160000-177777 i UNIBUS ADDRESSES : 


TI 
THE DEFAULT VALUE OF “x” is 2o000. “x" IS ALWAYS A 
PHYSICAL ADDRESS. 


FOl 
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LOADING PROCEDURE 


THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
IS TO BE USED. 


STARTING ADDRESS 
FOR ABSOLUTE LOADER 
037S00 


1$7S00 


START UP PROCEDURE 
CONTROL SWITCH SETTINGS -- NONE 
STARTING ADDRESSES 
1000_OR 200 NORMAL STARTING ADDRESS. FOR THE 
I ON ROGRAM 


AMETERS 
— RESTART USES THE PARAMETERS WHICH 
HAVE BEEN PREVIOUSLY ENTERED. 


1002 De adh ADDRESS Daas REQUESTS OPERATOR TO ENTER TEST 
ARAMETERS AGAIN 


NOTE: AT ANY TIME WHILE THE PROGRAM IS RUNNING, @ CONTROL PF (tP) 
OPERATOR te an 
PROGRAM AND/OR OPERATOR ACTION 
INITIAL PROGRAM START 
1. LOAD PROGRAM INTO MEMORY USING ABSOLUTE LOADER. 
LOAD ADDRESS 200. 
PRESS START 
THE PROGRAM WILL TYPE OUT “DZDXI-B NEW OX11-B RESPONDER” 


THE SYSTEM NOW REQUESTS THE 6 gg lh TOC ENTER THE 
PARAMETERS NECESSARY TO RUN THE TEST 


ENTERING TEST PARAMETERS 


BEFORE ANY TESTS MAY BE RUN OR WHENEVER A CHANGE IN PARA- 
METERS IS DESIRED, THE OPERATOR WILL BE REQUIRED TO ENTER 





GOl 
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ALL_THE TEST PARAMETERS. THE ENTERING OF THE PARAMETERS 
TS DONE VIA THE CONSOLE TELETYPE IN RESPONSE TO A SERIES 


D 
OF QUESTIONS. 
4.3.2.1 GENERAL RULES FOR ENTERING PARAMETERS 
A. ot — oe MUST BE DELIMITED BY A CmRRIAGE RETURN 


6. A TYPING ERROR IS -rhieeiliaaas BEFORE ENTERING THE CR, 


IF 

IT MAY BE CORRECTED BY 

i USING RUBOUT(S) TO DELETE THE LAST CHARACTER(S) 
HITTING CONTROL-U (tU) TO DELETE THE ENTIRE ENTRY 


>. TO SELECT THE DEFAULT PARAMETER ENTRY, TYPE CARRIAGE 
RETURN (C/R) ONLY. 


D. IF THE PROGRAM DETECTS AN ERROR IN A PARAMETER IT WILL 
REPEAT THE QUESTION AGAIN AND REQUIRE THE OPERATOR TO 
REENTER THE PARAMETER. 

.2.2 PARAMETER DEFINITION 

“UNIBUS ADDRESS -OCTAL-” 
meeyestS USER TO ENTER oe WHERE THE DX RESIDES 
ON THE UNIBUS. THIS MUST BE A & DIGIT OCTAL NUMBER 
BETWEEN 176200 AND 177700. 
DEFAULT UNIBUS ADDRESS =176200 

“VECTOR ADDRESS -OCTAL-” 


i ee: USER TO ENTER THE VECTOR ADDRESS FOR THE Ox 
A 3 DIGIT OCTAL NUMBER BETWEEN 300 AND 770. 


DEFAULT VECTOR ADDRESS = 300 
“DEVICE ADDRESSES (XX,XX) -HEX-" 


pe Quests pe USER TO ENTER THE 360 CHANNEL Moone SS (ES) OF 
THE e260(S) TO BE EMULATED BY _THF TEST. IF MORE T Le N ONE 


tu 


ENTE N HEX BETWEEN RANGE OF 
DEVICES IS GIVEN, THERE CAN NOT BE MORE THAN 8 TOTAL. 
DEFAULT DEVICE ADDRESS = 10,10 

“CHANNEL TYPE (M OR S)” 
REQUESTS THE USER TO INDICATE WHAT TYPE OF 360 CHANNEL 


Ol 
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THE OX IS_INTERFAC P TO: M = MULTIPLEXER CHANNEL, 
S = SELECTOR CHAN 


DEFAULT CHANNEL = S, SELECTOR CHANNEL 
“MEMORY MANAGEMENT (Y OR N)” 
OSE Tre MENORY RANAGERENT 0 CA ae THE PROGRAM IS TO 
NO 
DEFAULT OPTION = N, DO NOT USE MEMORY MANAGEMENT 
“BUFFER RELOCATION, IF SPECIFIED - IN EVEN ,000’S -OCTAL-" 


Fitaine BOF hy as My veo Te Oe ee at ~~ =. 


RMWARE BUF E, 

abort as StEATE fs F Tecteaioe. Es feprgrto 
ON A Bod ey tveieAL UR DDRESS 
100000 IS pyre AObRE 


NOTE: THE BUFFER ated | sckoser THAN tome 


THE DX. 18 NOT CAPABLE OF HAVING THESE BUFFERS 
CROSS A 200000 BOUNDARY. 


i 1S POSSIBLE TO OVERLAY THE ABSOLUTE LOQDER 
WHICH RESIDES. N THE HIGHEST AVAILABLE 4K‘ 10) 
HE OF MEMORY. 
DEFAULT BUFFER ADDRESS = 20 (20000) 
“FRIEND (F) OR 2848 DIAG (D)” 
REQUESTS THE USER TO INDICATE WHAT TYPE OF TEST WILL 
BE RUN ON THE 360; F = IBM’S FRIEND OR D = THE 2848 
RESPONDER DIAGNOSTICS. 
DEFAULT OPTION = F -- FRIEND 


IN FRIEND MODE, SEE PARA S.O FOR LIST OF VALID IBM 
CHANNEL COMMANDS. 


FRIEND MODE te ACCEPT THE SAME COMMAND STRINGS FORMERLY 


USED WITH *CTP 
NOTE -- I T RESPONDER WAS SELECTE 
RE PaRAnE TERS BRE NE EDED 55 TH "sySTEn 
TeCL. BE NIT ALIZE OAD OE BATRO Passed 
THE MONITOR. SEE MONITOR COMMANDS 
“SEPARATE O BUFFERS (Y 


REQUEST R TO tN Tate i} jes SEPARAT sey? 
ar ues TBuT SUPE B Ute bu AINED FOR E PACH C 

T EMULATED. SEPARATE bUTPUT BUFFERS BCLOW 
THE TRANSMISSION OF THE Same "ORTA PATTERN TO THE 
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360/370 INDEPENDENT OF WHAT DATA IS RECEIVED. 
ants IS Users. IN ot ate THE CAUSE OF BAD 
DATA BEING TRANSMITTE 


D. 
NOTE -- MOST TESTS USING ’FRIEND’ WILL NOT UTILIZE 
SEPARATE I70 BUFFERS. THESE ARE ONLY FOR SPECIAL 
SITUATIONS AS MENTIONED ABOVE. 
DEFAULT OPTION = N, NO USE THE SAME I-O BUFFER 
NOTE -- IF THE SAME I-O BUFFER WAS SPECIFIED, NO 
MORE PARAMETERS ARE NEEDED, SO THE SYSTEM 
WILL BE INITIALIZED AND CONTROL PASSED TO 
THE MONITOR. SEE MONITOR COMMANDS 4 
“OUTPUT BUFFER FILL CHARACTER -HEX-" 
REQUESTS THE USER TO ENTER THE CHARACTER WHICH IS USED 
TO FILL THE QUTPUT BUFFER. THIS CHARACTER IS ENTERED IN 
HEX (06 - 
DEFAULT FILL CHARACTER = 40, AN EBCDIC BLANK 
NOW ALL TEST PARAMETERS HAVE BEEN ENTERED AND THE SYSTEM 
WILL BE INITIALIZED AND CONTROL WILL BE PASSED TO THE 
MONITOR. 
4.3.3 SYSTEM INITIALIZATION 


AFTER THE TEST PARAMETERS HAVE SEEN ENTERED THE SYSTEM IS 
ENT TIAL IZED AND CONTROL PASSED TO THE MONITOR. BEFORE 
Y COMMUNICATIONS Ort T 60 THE DO 


x 
WILL NEED TO BE ENABLED VIA RUN “R™ COMMAND. SEE SEC- 
TION 4.4 FOR MORE TREDRMAT TON CONCERNING THIS AND OTHER 
MONITOR COMMANDS. 
4.4 MONITOR COMMANDS 
AFTER THE TEST PARAMETERS HAVE BEEN SUCESSFULLY ENTERED 
THE SYSTEM IS CONFIGURED AND INITIALIZED, THEN CONT ts 
PASSED TO THE MONITOR. ONCE IN THE MONITOR THE SOERATOR 
IS FREE TO ISSUE ANY COMMAND LISTED BELOW. 


NOTE -- THE OPERATOR MUST ENABLE THE DX (RUN COMMAND) 
BEFORE ANY TESTS MAY BE PERFORMED WITH THE 360/370. 


4.4.4 GENERAL RULES FOR ENTERING MONITOR COMMANDS 
A. o), Sopwes MUST BE DELIMITED BY A CARRIAGE RETURN 
8. i TYPING ERROR IS ps TECTED BEFORE ENTERING THE C/R, 
IT MAY BE CORRECTED BY 
1. USING RUBOUT(S) TO DELETE THE LAST CHARACTER(S). 
2. TYPING CONTROL-U (tU) TO DELETE THE ENTIRE LINE. 


JOl 
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C. IF _A USER WISHES TO ABORT A_COMMAND, SUCH AS DUMPING 
DATA TO THE TELETYPE CONSOLE, HE DOES SO BY TYPING 
CONTROL-C (fC). 


D. CONTROL-S (tS) SIGNALS THAT CONSOLE OUTFUT SHOULD BE 
TEMPORARILY SUSPENDED. 

E. CONTROL-@ (tQ@) IS USED 9 RESUME CONSOLE OUTPUT AFTER 
IT HAS BEEN STOPPED VIA A CONTROL- 

F. THE MONITOR MODE IS DENOTED BY THE ASTERICK (#) IN 
PRINT POSITION 1. 


G. IF AN ERROR IS DETECTED 7 ame BY THE PROGRAM, 
IT WILL PRINT A QUESTION MAR 

H. IF THE OPERATOR TRIES TO ENTER DATA WHILE A COMMAND IS 
CURRENTLY ACTIVE OR HE OVERFL as THE INPUT BUFFER (64 
CHARS) THE SYSTEM WILL PRINT A BACKSLASH (\) AND DELETE 
THE ENTIRE LINE. 


I. TYPING CTL-P (tP) CAUSES THE SYSTEM TO BE REINITIALIZED 
AND NEW TEST PARAMETERS REQUESTED. 


4.4.2 DESCRIPTION OF MONITOR COMMANDS 
R -- ENABLE THE DX FOR TESTING - RUN COMMAND 
THE RUN COMMAND DOES THE FOLLOWING: 
1. INITIALIZES THE DX 
2. CLEARS ALL TUMBLE TABLE ENTRIES. 
3. ENABLES THE DX BY SETTING THE APPROPRIATE BITS IN DXCS. 
S -- DISABLE THE DX - STOP COMMAND 
THE STOP CONMPND ALLOWS THE USER TO DISABLE THE DX AFTER 
A SPECIFIC EVENT. THIS MAY EITHER BE IMMEDIATELY AFTER 
AN INITIAL SELECTION SEQUENCE, AFTER A DATA TRANSFER, 
AFTER AN ENDING SEQUENCE, OR ON A PARITY ERROR. 


THE FORMS OF THE STOP COMMAND ARE: 


S(C/R) -- STOP IMMEDIATELY 

SI(C/R) -- STOP AFTER NEXT INITIAL SELECTION SEQUENCE 
SO(C/R) -- STOP AFTER a 2 DATA TRANSFER COMPLETION 
SE(C/R) -- STOP AFTER NEXT ENDING SEQUENCE 

SP(C/R) -- STOP ON NEXT PARITY ERROR 


AFTER THE CONDITIONS OF STOP ARE MET, THE DX WILL BE DIS- 
ABLED. TYPE * CONTINU 
ase WILL BE PRINTED ON THE CONSOLE 





KO1 
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“CURRENT DEVICE -- Xx" THE CURRENT DEVICE ADORESS IN_HEX 

*XXXXXX" THE DXDS IN OCTAL - PROBABLY ZERO 

"XXXXXK" THE DXCA IN OCTAL 

*XXXXKX" THE DXCS IN OCT 

*"XXXXXX" THE DXOS IS OCTAL 

“XXXXXK" THE DXBA IN OLTAL 

“XXXXXX" THE DXBC IN OCTAL 

"XXXKXX" THE DXMO IN OCTAL 

“XXXXXX" THE OXM iN OCTAL 

“XXXXXX" THE DXCB IN OCTAL 

*"XXXXXX" THE DXND IN OCTAL 

"XXXXXX" THE DXES1 IN OCTAL 

“XXXXXX" THE DXMOB IN OCTAL 

"XXXKXX™ THE DXESe IN OCTAL 


D -- DUMP COMMAND 


THE DUMP COMMAND ALLOWS THE USER TO. DUMP VARIOUS DATA 
BUFFERS, TABLES OR CORE LOCATIONS ON THE CONSOLE TELETYPE 

A VARIETY OF FORMATS. THE FOLLOWING DESCRIBES THE 
SYNTAXES OF THE DUMP COMMAND: 


OTT, 9 DUMP TUMBLE TABLE IN OCTAL 

DTT; H DUMP TUMBLE TABLE IN HEX 
ig! DUMP TUMBLE TABLE COMMAND REFERENCES 
A DUPL E E MAINTAINED 


ICATE UNG, T 
EXCLUSIVELY FOR THIS FUNCTION. THE TUMBLE 
TABLE IS DUMPED IN OGI 
XXXXXX TT2 -- LAST OPERATION 


LAST OPI 
XXXXXX TTe -- PREVIOUS T/T ENTRY 
XXXXXX TT1 -- PREVIOUS T/T ENTRY 


3535 3538 
xx xO xx 
Ooxxxx 

oO bode 


P44 
itr 
wn 
w 
w 
w 
bad, 
mmr 
mir 
m 
m 
m 
mmm 


wow 


0 
H 

OS E 

peeeses: EEEEEE,A OUMP BETWEE 
HE 


NOTE -- Xx IS T 
WILL DE 

S 

E 


o2zxri=a DM 


CEBNIB.0 


EC-} 
B.D 


LO1 
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F -- FILL COMMAND 
THE ie ea | oe THE USER TO FILL THE INFUT OR OUT- 
pet Eee DEY 1s WITH_A SPEE TELE DATA ae THE FOLLOWING 
SCRIBES THE SYNTAX FOR T LL COMMAND 


FIN, YY, XX FILL INPUT BUFFER FOR DEVICE XX WITH YY 
FOTAYY. XxX FILL OUTPUT BUFFER FOR DEVICE XxX WITH YY 


By 2 HE PRLEESARBENER IN 1B 


H -- HELP COMMAND 


THE HELP COMMAND aa! yh OUT A SYNOPSIS OF THE 
MONITOR CON Fe E CONTROL CHARACTERS 


COMMANDS 
AVAILABLE oP RAT NG TH x 1- TEM TEST 
PROGRAMS THE SSNTEX CBMRAB Fe. 
H PRINT OUT HELP MESSAGE 
I -- INPUT COMMAND 
piNeur DATA FOR A 
PARTICULA AR’ RT AT ARO SEND 11"t USER 3 THE 38 MANNER 
as I HE HERE Ac a S260" Re tNPuT MAND IS 
ONLY VALID WHE N THe. Ten enn ST RGNOSTICS aw SEING RUN. 
THE SYNTAX ore THE INPUT COMMAND IS: 
1Xx,D---D 
WHERE: 
XX IS THE DEVICE ADDRESS IN HEX 
D---D IS THE DATA TO BE SENT TO THE 360. THE DATA WILL 
BE CONVERTED TO EBCDIC BEFORE BEING TRANSMITTED TO 
THE 360. 
— -- ENABLE A DX-11 DEVICE ADDRESS 
THE ENABLE COMMAND TURNS THE DEVICE INDICATED IN THE OPERAND 
O AN ON-LINE STATUS. A DEVICE ADORESS ONLY BECOMES OFF- 
ONE VIA THE “K™ COMMAND. THE DEVICE BDDRESS MUST ee ENTERED 
IN HEX AND BE WIT HIN THE LIMITS SPECIFIED BY THE TEST 
PARAMETERS. THE SYNTAX THE ENABLE COMMAND IS: 
EXx ENABLE DEVICE xx 
K -- DISABLE DX11-B DEVICE ADDRESS 
LL OMMAND T VICE INDICATED TO AN OFF-LINE 
oe Kal $e vIee BooREse EH SERED MUST Be IN HEX AND BE 
WITHIN THE CniTe SPECIFIED BY T Mora THe =e BRA ane Te RS. A 
at eM X Oe THE KEE LE OMARG TS : 


Kx DISABLE DEVICE xx 


.@ 


u~an 
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A -- ACCESS AND DISPLAY LOCATIONS (QUICK LOOK + CHANGE) 


THE ACCESS COMMAND ALLOWS THE USER TO DISPLAY AND ALTER 


Hs HS Sree A HEE BbaHEEE Yo ruetAse eee 


ar She “REFERENCED Location. IN IN SOCTAL oN the CONSOLE IE. 


A. CHANGE THE ys: OF THE LOCATION id be a THE 
NEW CONTENTS_IN OCTAL, DELIMITED BY A (C/R THE 
yeTen bi Lt THEN OPEN’ THE NEXT LOCATION AND’ DISPLAY 
ONTENTS. 
8S. TYPE A (C/R) ONLY. THIS WILL NOT AFFECT THE CONTENTS 
OF THE CURRENT LOCATION. THE SYSTEM WILL OPEN THE 
NEXT LOCATION AND DISPLAY ITS CONTENTS. 


C. TYPE (7) SLASH FOLLOWED BY A (C/R) TO ESCAPE TO THE 
MONITOR. 


THE SYNTAX OF THE ACCESS COMMAND IS: 


AYYYYY ACCESS + Bi ocer soe YYYYY 
NOTE: NO SPACE BETWEEN “A” AND LOCATION 


OPERATING PROCEDURE 
REFER TO SECTION 4.4 “MONITOR COMMANDOS” FOR DETAILS. 


SEE MAINTENANCE MANUAL EK-DX11B-MM-O02 FOR PROCEDURES 
FOR OPERATING THE I8M SYSTEM. 


IN FRIEND OR 2848 DIAG.MODE, THE FOLLOWING IBM COMMANDS ARE VALID; 


COMMAND DESCRIPTION 

OCTAL HEX 

00 00 TEST 170 

01 Ol WRITE FULL BUFFER 
02 ve #READ MANUAL INPUT 
03 03 NO OPERATION 

04 O04 SENSE 

os oS WRITE LINE ADDRESS 
Oe oe READ FULL BUFFER 
le OA #READ SHORT MANUAL INPUT 


*DATA_IN THE OUTPUT BUFFER IS ONLY TRANSMITTED ONCE 
FOR THESE COMMANDS. 


ERRORS 


NO1 
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ERROR HALTS 


AND 
Men ORY MANAGEMENT ERROR) WHICH WILL CAUSE THE PROGRAM 

TO HALT GUTS TOE OF THE TRAP CATCHER. BOTH ERR ERRORS 

ARE ACCOMPANIED WITH A DESCRIPTIVE MESSAGE RELATING 

THE CAUSE OF OR. RECOVERY FROM ANY SYSTEM HALT 
REQUIRES THE OPERATOR TO RESTART THE PROGRAM A "LOCATION 200. 
SEE ERROR MESSAGES FOR DETAILS. 


DX ERRORS 


VICE ADDRESS, 
achat WILL 


T BE Mo 

PERFORMED ON THE 360/370 (RUN COMMAND). 
HAS BEEN DISABLED THE FOLLOWING WILL BE PR 
CONSOLE TELETYPE: 


“CURRENT DEVICE -- XX" THE 
“XXXXXX" THE 
Bienen THE 


ICE ADDRESS IN HEX 
-- PROBABLY ZERO 


m 
2222-44 


S2z8SSRR3 


xxx 
3 


3 
3 
x< 
x 
3 
4 
mi 
OQVCOVCC0V00000 
iz 
w 
~ 
Hem ZZZZZ 
22 2 
aahe 
pee 
Fad 


HE AL 
"XXXXXX™ THE DXESe IN OCTAL 


~~ THE OX WILL_NOW BE IN A DIseE STATE REQUIRING 
THE USER TO ENABLE THE DX VIA THE RUN “R™ COMMAND BE ORE 
COMMUNICATIONS TO THE 360 CAN RESUME 


ERROR MESSAGES AND SUGGESTED CORRECTIVE ACTIONS 


“MEMORY Tine OUT” 
THE MEMORY TIME OUT ee INDICATES A TRAP WAS 
Ps cures THRU a ay T aYeren gr to ro 
THIS ERROR. THE MEMORY TIME OUT ERROR 
DENOTES THAT AN AN ILLEGAL ADDRESS WAS REFERENCED. AND 
THE SYSTEM SHOULD PROBABLY Be RECONFIGURED. 


“MEMORY penerentT ERROR™ 
THIS ERROR ZNO ICATES A TRAP WAS EXECUTED THRU 
LOCATION 250, THE MEMORY MANAGEMENT TRAP VECTOR. 
eottton WILL HALT AFTER REPORTING THE ERROR 


fu 


“ILLEGAL DEVICE NUMBER” 
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HIS ERROR rere ; THAT A_ TUMBLE TABLE 
was MADE WHICH CONTAINED A Devic ADDRESS OU 

VICE IFIED 
Me 


“INVALID _DX COMMAND” 
THIS ERROR INDICATES THAT AN INVALID COMMAND WAS 
DETECTED FROM THE . THIS — CAN ONLY OCCUR 
AN INITI SEE SECTION 


ERROR INDICATES THAT A NON-EXISTENT MEMORY 
ERROR WAS DETECTED IN A TUMBLE TABLE FROM THE 
. SECTION 6.3 FOR FURTHER DETAILS ON Dx 
ERRORS. 
“PARITY — 


OR” 
HIS ERROR_INDICATES THAT A og ERROR WAS DE- 
rect ED BY THE DX. TO STOP THE OX WHEN 

A PARITY ERROR IS DETECTED, THE USER SHOULD 
CONSULT THE “STOP” COMMAND: 


RESTRICTIONS 
SEE MEMORY REQUIREMENTS (SECTION 2.2) 


© 


7A MULTIPLE DEVICE ADDRESSES 


ONLY 8 DEVICE ADDRESSES MAY BE EXERCISED SIMULTANEOUSLY 
OVER THE DX. ALL THE DEVICE ADDRESSES MUST BE CONTIGUOUS. 


. % 
8.0 PROGRAM DESCRIPTION 
PURPOSE THE PURPOSE OF THIS PROGRAM IS TO Give INSIGHT 


THE HARDWARE AND TO GIVE AN EXAMPLE OF 
DX11 IT WILL, BY DEFAULT, PROVE 

ON “WHICH HE FENCE" A PROBLEM Lies- 

SOFTWARE OR HAROWARE ,DEC OR IBM. 


THE FOLLOWING IS A DESCRIPTION OF THE PROGRAMMING TECHNIGES USED- 
IT {S BROKEN DOWN BY THE NEAREST DISCRIPTIVE ROUTINE- 


-------- KEYBOARD 8 PRINTER 1/0 -------- 


MESG: THIS ROUTINE PACKS THE TYPE OUT MESSAGE IN BUFFER AREA - 
LOOKS TO SEE IF PRINTER IS BUSY - IF NOT, PRINTS AND 


COe 


PROGRAM be OT Saale 01-FEB-78 


RESTORES BUFFER AREA UNTIL MESSAGE IS COMPLETE. 


IF BUSY, IT PACKS BUFFER AREA UNTIL FULL, WAITING FOR 
THE OTHER PRINTABLE TASK TO COMPLETE. 


THIS APPROACH PROHIBITS MESSAGE INTERWEAVING. USES PROUT: 


-DZDxI 3 Sa a tt ly RESPONDER 


PROUT: THIS ROUTINE SENDS DATA TO PRINTER BASED UPON TTY FLAG 
IS BUSY OR NOT. 


TKIN: THIS Rourine occ PTS CHARACTERS _FkOM KEYBOARD _AND STUFFS 
THEM AWAY N BUF, But FIRST, fr SHECKS POR CERTAIN CON- 
TROL CHARACTERS 


tP - JUMP TO RESTART TO RESELECT PARAMETERS. 


tC - WHEN COMMAND (TCMACT) ACTIVE = SET ABORT 
FLAG (TCMDAB) 


- WHEN COMMAND (TCMACT) NOT ACTIVE = PRINT \ 
& RESET BUFFER PTR. 


A C/R DELIMITS TTY_COMMAND - TCMACT IS SET -_NOW IF YOU 
CONTINUE TYPING - TCMACT BEING SET WILL NOW THROW AWAY 
THOSE CHARACTERS. 


~s 
o 


SYSINT: _THIS ROUTINE CLEARS THE THE WORLD, SETS UP TTY KEYBOARD 
& PRINTER VECTOR AREAS. 


}~ ha MEMORY TIME OUT & MEMORY MANAGEMENT ERROR VECTOR 


CLEARS OUT SYSTEM BUFFER AREA & SETS UP TTY BUFFER POINTERS. 


----GETS DX ADDRESS - CHECKS FOR LIMITS SAVES IT IN UNADDR: 
----GETS DX VECTOR - DITTO 


GETS DEVICE ADDRESS IN HEX - ACCEPTS RANGE OF DEVICE 
AODRFESSES MUST NOT EXCEED 8 - SEPARATED BY A COMMA 
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SAVES START DEV ADD IN SDEV 

SAVES END DEV ADD IN EDEV 
----CHECKS FOR LEGAL TERMINATOR IE. C-R 
----GETS CHANNEL TYPE M™ OR S 


----GETS ANSWER WHETHER MEMORY MANAGEMENT? Y OR N 
IF YES. SET UP VECTOR 4 AND TEST FOR EXISTANCE OF MEMORY 
MANAGEMENT . 

----GET BUFFER RELOCATION IN ,000°S (TrOUSANDS) 

* CHECKS FOR BOUNDARY 20000 OR GRENTER 

* CHECKS FOR MULTIPLE OF 2000 

* CHECKS TO SEE IF NUMBER IS VALID WITHIN MEMORY MANAGE- 
MENT AND COMPARES WHETHER M/M WAS SPECIFIED. 


~-==-GET TEST TYPE - FR ENO OR e'8 * STORE iN TSr1ves = IF 
FRIEND ASK NEXT QUESTION, IF e848 JUMP TO INIT: 


----SEPARATE 170 pores’ Y OR N 
ue i” IOBUF 


----FILL CHARACTER IN HEX 
SAVE IN FILLCH 


NOMM: NO MEMORY MANAGEMENT AVAILABLE. 


MMERR: MEMORY MANAGEMENT TRAP OUT ROUTINE 
CLEAR WORLD 
TYPE OUT ERROR MESSAGE 
HALT 


INITRT: PRINTS A re - WAITS FOR INPUT - GETS IT OR IF IT IS 
A C/R - DEFAULTS. 


COTB: COOPES CHARACTERS owe INPUT eurree AREA - eens TO 
lL AND SAVES RESULT IN R3_- THIS ROUTINE DOES N 
OTHER CHECKING THE CODE Pot owINe UNIT EXAMINE R3 FOR 


E0e 
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VALIDITY. 


CHTS: GOBBLES CHARACTERS FROM INPUT BUFFER AREA CONVERTS HEX & 
TO OCTAL AND SAVES RESULT. STORES AWAY TERMINATOR IN R4 


THE TERMINATOR SHOULD BE EITHER A C/“R OR A COMMA. 


sonee PROGRAM INITIALIZATION---- 


INIT: SET UP _MEMORY TIME oT TRAP 
----SET UP OX ADDRESS TABLE. SET UP VE 


C ADDRESS WITH 
DXISR. WAS BUFFER RELOCATION SPECTE 
AT e0000. 


TOR 
IED - IF NOT START 


----TEST FOR MEMORY MANAGEMENT. 
----IF YES - SET UP MEMORY MANAGEMENT REGISTERS AND ENABLE 
MEMORY MANAGEMENT . 


----SET UP SPW TABLE 
LOAD DXOS WITH BUFFER OFFSET (DEFAULT = _e0000) 
CALCULATE ADDRESS OF DST TABLE - SAVE AT DSTOFF 


~---SET _UP SPW TABLE - MOVE UCHK FOR INVALID DEVICE #’S 
MOVE DST ADDRESS TO VALID DEVICE #’S 


SPW TABLE = 400(8) WORDS. 


----CLR TUMBLE TABLE & DUPLICATE TUMBLE TABLE. 
T = 400(8) WORDS 


OTT = 400(8) WORDS 
----SET UP DST TABLE 
FIRS . BYTE LOCATIONS FILL IN WITH VALID COMMANDS. 


D 

7 oe 

REMAINDER DST = UCHK = ¢ 
= 128. WORDS = Sse. BYTES 


----SET UP FILL CHARACTER 


ee ol OMPUTE oo PER OF DEVICES +1 
SAVE AT M 
DEVCON = MP IRST: DEVICE -1 


FOe 
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MAKE THE FIRST DEV TC ‘Es O_ IN THIS TABLE 
CLEAR DEVICE STATUS BUFFER TABLE & INPUT BUFFER 


~~ eNeere & SAVE ADDRESS OF INPUT/DISPLAY BUFFER IN DEVICE 
CREATE & SAVE ADORESS OF OUTPUT/DISPLAY BUFFER IN DEVICE 
BUFFER AREA 


----F ILL areul OLsPLar BUFFER WITH FILL CHARACTER 
NOW CHECK IF ALL DEVICES HAVE HAD THEIR DEVICE STATUS 
BUFFER TABLES ACENERATED - IF NOT, REPEAT INT13S0: THRU 


- REMEMBER MEMORY MANAGEMENT HAS BEEN TURNED ON- 


gna aTe Premed Ps BITS AND SAVE AT XADOR: SET 
FIRST TIME T LAG - QUESTION/ANSWERS WILL ONLY BE 
GENERATED IF a: Aa & START. OR HITTING tS ON Ty KEYBOARD 


-------- THE EXEC: SYSTEM EXECUTIVE”BACKGROUND -------- 
(@ WAIT ROUTINE) 


EY‘EC: CLR SYSTEM FLAGS 
~---ANY COMMANDS TO EXECUTE? IF YES GO TO EXECeO. DID THE 
DX ABORT AN OPERATION - IF NOT SPIN HERE 


~---ALWAYS COME HERE AFTER TELETYPE _INPUT HAS SET TCMACT - 
THIS Ba Hh DISPATCHES YOU TO THE COMMAND TYPED IN - IF 
NOT AN wert: ™ tA COMMAND = ? RETURN TO EXEC. 


~--TYPICAL_DX COMMANDS--- 
(ENTERED VIA TTY KEYBOARD) 


vu 


i O* COMMAND 
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RUN: CHECK IF Dx IS ENABL 
IF YES, TYPE ? AND (BELL) =-RETURN TO EXEC 
FOR ANOTHER nt COMMAND. 
NO, CONTINUE 
RETURN TO EXEC 
CLR Oxcs 
INC Dx¢S - GO 
CLR DEVICE STATUS BUFFER TABLE 
(SCMOD 
SLCMD 
SSENSE (NOT SCURS, SINTB, SOUBF, SONLF? 
SSTarT 
SBUFA 
SRBYTC 
SRDRQ 
SMINS) 
DO THIS FOR ALL DEVICE STATUS BUFFER TABLES ‘BASED ON 
MAXDEV: ) 
CLR DXACT, CMDCHF, DXABFL 
CLR TUMBLE TABLE 8 DUPLICATE TUMBLE TABLE 
SET EXTENDED ADDRESS BITS IN DXCS 
CHECK FOR CHANNEL TYPE 
IF SELECTOR CHANNEL SET BUSY ENABLE IN DXCS 
SET INTERRUPT ENABLE 8 ONLINE IN DXCS 
RETURN TO EXEC 
STOP DX COMMAND 
STOP: PICK up NEXT TTY INPUT CHARACTER FOR THE MODE. 
C/R = CRUNCH DX, CONVERT AND PRINT CURRENT DEVICE 8 
IN HEX, PRINT 13 DX REGISTERS CON TENTS. 


R ABORT T FLAG (DXABFL) 
RESET Dx, SET GO, RETURN TO EXEC. 


8) = SET THE STOP FLAG (DXSTPF ), TEST WHETHER STOP HAS 
TAKEN PLACE NOT T’ UNTIL OxSTPF HAS BEEN 
CLEARED picaLey tHe” CHEND: ROUTINE WILL CLEAR 
DXSTPF (OXISR:)) . DISABLE DX , RETURN TO EXEC 
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E = SAME AS D0 EXCEPT (TYPICALLY PESEND: OR 
PCHEND: ROUTINES WILL CLEAR DXSTPF DxISR: ») 


I = SAME AS DD EXCEPT ( TYPICALLY PCHIS: ROUTINE 
WILL CLEAR DXSTPF (DXISR:)) 


ANY OTHER CHARACTER = AN ILLEGAL CHARACTER 


DUMP COMMAND 


DUMP: 


GLIMIT: 


PICK UP THE NEXT PEOUENCS a OCTAL NUMBERS OR NEXT CHARACTER 
FROM TTY INPUT BUFFER AREA 


Not OPER rhe YA QCTAL NUMBERS . pif tes. (SAVE IT); IF 
THESE - TYPE ERROR PA. Bo 


(SAVE IT) OCTAL NUMBERS, 1ST ADDRESS GIVEN = SADOR 
2ND ADDRESS GIVEN = EADOR. 


IF “T" -CHECK_ FOR 2@ND_T - CREATE STARTING ADDRESS 
OF DUPLICATE TT (TTPTR +1000) 
(SAVE) OTT2 = SADDR 


IF “I* - NOW CHECK FOR N - CREATE STARTING 8&8 ENDING ADDRESSES 
OF DEVICE O INPUT BUFFER TABLE 
SINBUF (DEV 0) = SADDR 
SADOR + 481. = ERDOR 
IF “O" - NOW CHECK FOR T - CREATE STARTING AND ENDING 
ADDRESSES OF DEVICE 0 OUTPUT BUFFER TABLE 
SOUTB (DEVO) = SADDR 
SADOR + 479. = EADOR 
NOW SET UP DMPADR: TO CONTAIN THE ADDRESS OF THE 
CORRECT DUMP ROUTINE (IE ASCII DUMP, EBCDIC, HEX, OCTAL) 
HECK EE aT FY UMP DTT 
it REVERSE ~ ieee’ abbr ss UOMPADR. "EAT RUES DUMP ING 
(PRINTING) UNTIL BEGIN TT IS SEEN 


IF NOT ° TT DUMP - CHECK FOR A DEVICE # SPECIFIED - IF 


CONTENTS OF SADDR B EBDOR TO PONT TO THE PROPER Device 


CONVERT AND pune IT, STOPPING JEADDR 
RETURN TO EXEC.; LOOKING FOR MORE COMMANDS TO EXECUTE. 


193 


SES S020 


SEG 


0te5 


102 
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Ficl COMMAND 


FILL: ff x Fatian forth FROM TTY INPUT BUFFER AREA - PERFORMS 
SIniL ILAR THE SUMP COMMAND EXCEPT IF FILLS AREA WITH THE 
FEC IED PILL OCHARACTER (FILLCH) 


USE ONLY THOSE FILL COMMANDS AS SPECIFIED I!) THE TEXT - ANY 
OTHERS MAY OBLITERATE THE CORE. 


BASICALLY THIS IS USED TO FILL THE OUTPUT OR INPUT BUFFER ARER 
WITH FILL CHARACTER (FILLCH) 


ACCESS COMMAND 


ACCESS: OPENS CORE ah CATION ALLOWING 17 TO BE MODIFIED WITH NEW CONTENTS. 
RETURNS YOU TO THE EXEC, A C/R OPENS NEXT LOCATION ETC. 
VERY SIMILAR TO “ODT* 


ENABLE DEVICE 


ENABLE: GETS THE TYPED DEVICE # IN HEX 
CLEARS THAT (DEVICES STATUS TABLE 
CLR SSENSE R SONL 
RETURN TO éxe EC 


mILL DEVICE 


KILL: GETS ne TYPED DEVICE # IN HEX 
MOVES UNIT CHESK INTO THE SPW TAB 
W 
RETURN TO EXEC. rm 


INPUT COMMAND 


INPUT: CHECK FOR FRIEND OR 2848? - vais ONLY GET DEVICE & 
InN HEX FROM TTY INPUT BUFFER 


PUT THE START CHARACTER IN DEVICE BUFFER AREA (SMI=112) 
SAVE DATA LOCATION (SMINS) 

INC CURSOR POSITION 

CEoMeise> ON The BUFFER AREA INC CURSOR POSITION. Gg QUEUE 
A READ REQUEST (SRDRQ) 


PUSH STACK (CREATE PHONEY INTERRUPT) 


JOe 
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JUMP DXEXEC 


ee ee ere VCE HOCH INES ORE SELECTED By THE DXISR 
ROUTINE WHEN THE TUMBLE TABLE ENTRY (TT1=DXDS) IS EXAMINED. 


SYSTEM RESET 


PSYSRT: CLEAR DEVICE STATUS BUFFER TABLE. SETUP DISPLAY BUFFER 
ARE H FILL CHAR. 

FOR ALL DEVICES 

M4 a “a Hen CHAINING FLAG ‘DXACT & CMOCHF) 

NEXT _ENTRY IN TT 

ORE TT ENTRIES - GO TO DXEXEC. 


cH 4 


aw 


SELECTIVE RESET 
PSELRT: CLR DEVICE STATUS BUFFER TABLE 
FOR THAT DEVICE + SEN 
IT IS A SEL RESET ISSUED AGAINST THE CURRENT ACTIVE DEVICE. 
PROCESS ANY MORE TT ENTRIES THEN GO TO DXEXEC. 
INTERFACE DISCONNECT: 


PINDSC: olf DEVICE WAS ACTIVE, ITS DEVICE STATUS TABLE WILL BE 
CLEARED - IF NOT ACTIVE, IGNORE CMD. 


IF ACTIVE - QUEUE CE! DE IN SCMD 


(TYPICALLY IBM WILL INTERFACE DISCONNECT A DEVICE EVEN 
THO THE DEVICE WAS NOT ACTIVE) 


IF ACTIVE - CHECK FOR CMDCHF: & DXACT: FOR THAT pert eae 
DEVICE - IF YES, CLR BOTH FLAGS - ONLY ONE DEVICE AT A TIME 
CAN HAVE CMD CHAINING AND/OR DX ACTIVE SET. 


IF NO MORE TT ENTRIES - GO TO DXEXEC. 


STATUS ACCEPT 
PESENT: WAS LAST CMD A WRITE? IF SO, FORMAT THE DISPLAY (DISCTL) 


WAS ATTN ACCEPTED? - ie YES, SET SRORQ@ (READ MANUAL 
+ on. INPUT REQUEST) 


co 
CLR OUT SLCMD (LAST pra et ONLY ON A WRITE) 
CLR DXACT DXACTIVE FLAG 

CLP DEVICE STATUS BUFFER TABLE 


KOe 
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TEST FOR CMDCHN (TTL) (DXDS) - IF YES, SAVE DEVICE # IN 
" cleaned IN CMDCHF (ONLY ONE DEVICE AT A TIME CAN 


CHA 
WAS A SE SPECIFIED? (S OP ON ENDING SEQ) -_IF YES, CRUNCH 
NO, AND NO MORE TT ENTRIES GO TO 


NON-EXISTANT MEMORY - FATAL ERROR 
PNXM: STOP THE DX _ FROM INTERRUPTING 
SET ABORT FLAG 
ay FROM DXISR - GO TO MONITOR WAIT STATE(EXEC). 
(DO NOT PASS THRU DXEXEC ROUTINE - JUST ABORT) 
PARITY ERROR 


PPARER: WAS STOP ON PARITY ERROR SPECIFIED? 
THE eg Bing» P: =0) HAS BEEN PRESET TO YES 


H 
IF_NO (PARSTP: =>0) QUEUE A _ UNIT CHK TO_SSTAT (STATUS WORD) 
RETURN TO DXISR AND CONTINUE CHECKING TT1 


EVERYTHING OK UP TO THIS POINT 
CHANNEL INITIATED SELECTION SEQUENCE 
PCHIS: WAS A SI (STOP ON ISS) SPECIFIED? 
IF YES, CRUNCH 
CMDREJ? YES, ° DEVICE ONLINE? 
NO INTREO IN SSENSE 
AcHOCHE? IF YES CMOCHF . 
Y MORE TT ENTRIES? - IF NO, GO TO DXEXEC 


CMDREJ? 


YES 
YES 
IF NOT, MUST BE ILLEGAL CMD - SET BUS OUT IN SSENSE 
IF YES; SET SCMDRJI (COMMAND REJECT) IN SSENSE 


CMDCHF? YES, CLR CMDCHF 
ANYMORE TT ENTRIES, NO, GO TO DXEXEC 
CMDREJ? NO, THEN PROCESS CMD (TT2 CONTAINS CMD) 


IS THIS A TIO CMD? IF YES, IGNORE, CHECK CMDCHF ETC, 
ANYMORE TT? NO? GO'TO DXEXEC 


IS THIS @ NOP CMD? IF YES, IGNORE, CHECK CMDCHF ETC, 
TT ENTRIES?, NO GO'TO DXEXEC 


IS THIS A VALID CMD? NO - ABORT De (ONAR , ,EXIT FROM DXISR & 
YES - QUEUE CMD (TTe) TO SCMD 


MAINDEC-i11-OZDXI-B NEW OX11-8 RESPONDER MACY11 
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CHANNEL 
PCHEND: 


(LOOP) 


CONTROL 
PCUEND: 


DOXISR: 


LO2 
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Is CMDCHE SET® YES, CLR CMODCHF 
YMORE TT ENTRIES, NO? GO TO DXEXEC 

END, PREPARE ENDING SEQUENCE RESPONSE 

CLR DXACT 

WAS STOP_ON DATA TRANSFER DONE? YES, STOP Dx 

SUBTRACT OXBYTE COUNT (OXBC) FROM SRBYTC 

WAS THERE A PAR ERROR? IF YES 

QUEUE EQPCHK TO SSENSE (EQPCHK = 20 ) 


ANYMORE TT ENTRIES? NO, GO TO DXEXEC 


UNIT END 


CLR 

USED Oke KEEP_TRACK OF REMAINING BYTE COUNT (SRBYTC) 

AND TO KEEP TRACK OF CURRENT BUFFER POINTER (MULTIPLEXER CHANNEL ) 
JUMP TO PCHEND: 


--- DXISR (DX11B INTERRUPT SERVICE ROUTINE) --- 


THE DX SHOULD MAKE ENTRIES IN TT - INTERRUPTS VECTORING 
THRU WHEN PSW IS < DX11B 


CHECK IF ZERO TT ENTRY UPON INTERRUPT 
IF _ ZERO - ASSUME TT RY HAS ALREADY BEEN PROCESSED - 
RETURN FROM INTERRUP 


IF NON-ZERO CLEAR “DONE” (DXCS) FOR EVERY TT ENTRY 

- SAVE Fist | r Jolt IN DUPLICATE TT (DTT1) 8TT1. 

SAVE SECOND TT ENTRY IN DUPLICATE TT (DOTT2) &TTe. 

CLR BOTH TT ENTRIES TO SIGNIFY THAT THEY WERE PROCESSED. 


NOTE: id a +. ~ CONTENTS OF DXDS...TT2 CONTAINS CONTENTS 


PICK UP DTT2 AND CHECK FOR VALID DEVICE # (TT2=DXxCA) 


ORDER IN WHICH THE FIRST TUMBLE TABLE ENTRY IS PROCESSED 
IS IMPCRTANT. CHECK FIRST FOR SYSTEM RESET , PARITY ERRORS 
THEN CHECK FOR CHANNEL INITIATED SEQUENCE CHANNEL END, 
CONTROL UNIT END. (PERFORM ACCORDING TO TT1 (OXDS) 
* CHECK FOR a SySRSt IN TT1 (DXDS) 
IF TO SYSTEM RESET (PSYSRT:) 
« SELECTIVE ER Eser? (DXDS) 


MOe 
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IF YE oP 

CHECK ror INTERFACE g' BiSconnecT” (DXDS) 

NON-EXISTANT M MEMORY? (DxDS) 

sTaTUS AcE ree bo, 

PARITY E 


F YES, GO 
man | Bt REE sce hae oe WF 0 Tas PomMT. 


E 
te. 0  TCHEND: 
CONTROL UN it END? (OXDS) 


0 TCUEND: 
INITIAL ECTION SEQUENCE REJECT? (DXDS) 
GNORE ENTRY... TREAT AS STACK STATUS 
NEXT TT ENTRY AND DO REST OF ABOVE..... HOWE VER 
IAL SELECTION SEQ WAS REJECTED ENTER A a dutue’ CONTROL 

T ( EUE OL UNIT END(QCUE=10) TO SCMD OF PROPER DEVICE 


ER TABL 
ILL Brey IN THIS SECTION OF CODE UNTIL_ALL TT ENTRIES 
BEEN PROCESSED. WHEN ae ARE NO MORE TT ENTRIES TO 
OCESS ....JUMP TO DXEXEC: 


wise * + * +e 8 * 


---DXEXEC: OVERVIEW ( CMD DISPATCH SECTION 
OF THE DXISR) 


OxTer HAS THE PRIORITY LEVE N ANY MORE INTERRUPTS. 
IT HAS PROCESSED ALL The +r AINTRIES BErO GETTING INTO THIS CODE 


Hoc tes geil 


Y, AS THE TT 


Sr FET He reste aan R-cHinceD 75, 
CHANNEL tue 1 NOW THAT NAY BE SE SOEUED D cormeNDeee WELL, 
yOu CAN EXIT F Peon? THE D SRT eR: by THS; PXECUTING 


ATTENTION™ CHAINING, 0 
SYSTEM RESET INTERFACE DISCONNECT. ETC. 


THE DXEXEC: ROUTINE FIRST DETERMINES WHETHER ne, CHANNEL 
WAS SELECTOR OR MULTIPLEXER (CHTYPE = “M™ OR “S" 


NOe 
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TYPICAL SELECTOR COMMANDS (FOR EACH DEVICE &#) 


WRITE FULL BUFFER (SCMD = 1) 
AD NPUT (SCMD = 2) 
ENDING SEQUENCE (SCMD = 3) 
NSR C (SCMD = 4) 
WRITE LINE (SCMD = S$) 
AD FULL BUFFER (SCMD = 6) 
ERASE C (SCMD = 7) 
CONTROL _UN NOD (SCMD =10) 
SEND ATTN TO 360 (SCMD =11) 
AD SHORT MANUAL INPUT (SCMD =12) 


TYPICAL MULTIPLEXER COMMANDS (FOR EACH DEVICE #) 


WRITE FULL BUFFER (SCMD = 1) 
READ INPUT (SCMD = 2) 
ENDING SEQUENCE (SCMD = 3) 
SENSE C (SCMD = 4) 
WRITE LINE ADDRESS (SCMD = 5) 
READ FULL BUFFER (SCMD = 6) 
ERASE C (SCMD = 7) 
CONTROL _UNIT END (SCMD =10) 
SEND ATTENTION (SCMD =11) 

SHORT MANUAL INPUT (SCMD =le) 


-~---SELECTOR/MULTIPLEXER COMMAND DESCRIPTION ---- 
---- SELECTOR CHANNEL ---- 


Is THERE ANY COMMANDS TO EXECUTE (PER DEVICE)? off _NO, CHECK 
FOR COMMAND CHAINING: IF YES, EXIT FROM THE D WAIT 
FOR THE INTERRUPT ( (REMEMBER, "YOU MUST EXIT IN XT OBER TO 

DROP THE PROCESSOR LEVEL). "RESULTANT OXISR INTERRUPT WILL 
PROCESS NEW TT ENTRIES. 


CK TQ SEE OF THE ATTENTION FLAG (SRORG 
S SET IF YES, QUEUE A “SEND ATTEN TION" 
RETURN TO DXEXEC AN REPEAT FOR NEXT DEVICE 
Co DEVICES HAVE BEEN SERVICED BEFORE 


82 8 


= AT 
EXITING FR 


IF THERE WAS 
ROUTINE SPECI 
FROM DXISR 


TO EXECUTE (SCMD=xXx); GO TO THAT 
IED BY THE COMMAND. WHEN COMPLETE...EXIT 


SEG 0026 
SES O0e6 
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eaten DESCRIPTION OF COMMAND ROUTINES (SELECTOR) ----- 
WRITE LINE ADDRESS 
WRITE FULL BUFFER 
SWRITE: SET UP THE ADDRESS OF INPUT BUFFER AREA ‘SINBF) INTO DXBA 
S SICAL OFFSET 


UBTRACT PHY: 

SET BYTE COUNT IN DXBC 

SET DEVICE ADDRESS om DXCA 

SAVE COMMAND (SLCMD <----- SCMD) 


8 
< 
2 
ji 
So bis 


XACT) 
& GO_IN Oxcs 
IT FOR NEW TT ENTRIES 


. WAIT F 
THE SAVING OF SLCMD SIGNIFIES TO THE PRESENT ENDING 
SEQUENC IT MUST FORMAT THE DISPLAY (DISCTL) 


READ COMMAND (READ FULL BUFFER) 


SREAD: SET UP THE ADDRESS OF THE OUTPUT BUFFER AREA (SOUTB) 
INTO ig ar SUBTRACT PHYSICAL OFFSET. 


DXAC 
SET OUTPUT FUNCTION oe GO IN Dxcs 
WAIT FOR NEW TT ENTRIES. 


ass 


READ MANUAL INPUT 
READ SHORT MANUAL INPUT 


Enh , IT FRIEND? IF YES, TREAT AS READ FULL BUFFER 
DID YOU a tee oe READ REQUEST? NO? ASSUME THE 

360 GAVE AN UNSOLICITAT ED REQUEST (POLL) AND SEND BACK 

AN ENDING SEQUENCE (ESEQ: 


IF READ REQUEST WAS SET-PROCEED - 
CLR_SROR@ 

SAVE LAST COMMAND 

SET UP STARTING ADDRESS - MOVE SMINS TO DXBA 
SUBTRACT PHYSICAL OFFSET enn. ox ” 

CALCULATE BYTE COUNT AND SET D 


IF BYTE COUNT IS ERRONEOUS - JUST SEND AN ENDING SEQUENCE 
COMPUTE DEVICE ADDRESS AND SET DXCA 

CLR SSENSE 

SET DEVICE BCT IVS FLAG (DXACT) 

SET OUTPUT FUNCTION AND GO IN DXCS 

EXIT FROM DXISR AND WAIT FOR NEW TT ENTRIES. 


PRESENT ENDING STATUS TO CHANNEL 


ESEG: GUEUE CE 8 DE TO SSTA 
CALCULATE DEVICE ADDRESS AND SET DXCA 


CO3 
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CHECK FOR UNIT CHECK BIT SET. IF YES, QUEUE SSTAT WITH 
UNIT CHECK ONLY 


NO, MOVE SSTAT TO D 


Fy age “eeihieer Bee Pop Ps TT ENTRIES. 


PRESENT CONTROL UNIT END 


OE: BEG SUT dnt Es 0 


eats 
QUEUE SST 


SET DEVICE ACTIVE RAs coxacty. 
EXIT FROM DXISR AND WAIT FOR NEW TT ENTRIES. 


ERASE COMMAND 


ERASCM: MOVE AN EBCDIC SPACE THROUGHOUT OUTPUT DATA BUFFER (SOUTB) 
ae ee POSITION (SCURS) 


QUEUE A Aces TO SCMD (CRUNCH WHATEVER WAS IN SCMD) 
DO AN ENDING SEQUENCE - (ESEQ:) 


SENSE COMMAND 


SENSCM: MOVE THE ADDRESS OF THE SENSE BYTE (SSENSE) TO DXBA 
COMPUTE DEVICE noORESs - SET DXCA 
SET UP TO SEND ONE BYTE Ruakey” 

SET DEVICE ACTIVE FLAG (DXACT 

EXIT FROM DXISR AND WAIT FOR NEW TT ENTRIES 


WITH UNIT CHECK ONLY 
xOS 


ooece MULTIPLEXER CHANNEL ---- 


MEX : IS COMMAND CHAINING SPECIFIED? (CMOCHF) IF YES exit. ag 
OXISR TO we PSW Ene if NO, PICK UP LAST DEVICE RESS 
THAT HAS A COMMAND EXECUTED - HAS IT BEEN EXEC UTED?" CPSPTCALLY 
SYSTEM RESET, SELECTIVE RESET, INTERFACE DISCONNECT 
STATUS ACCEPTED, CHANNEL END, ’OR CONTROL UNIT END WILL 
TERMINATE DXACT’IN A COMMAND’ SEQUENCE ) 


GO TO. DEVICE AND FIND OUT IF THERE IS A JOB TO DO 
IF NOT, QUEUE “ATTENTION” IFF ATTENTION IS REQUESTED (SRORG=1 } 
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-GO EXECUTE COMMAND. 


THOSE THAT ARE COMMON TO THE SELECTOR cere. WILL NOT 
BE EXPLAINED HERE - REFER BACK TO SELECTO 


WRITE FULL BUFFER 


MWRITE: IS THERE ITE IN PROGRESS’ wag 444, 
IF _NO oe) UBFA 


A WR 
SET UP DXBA (DXBA <----- 
=e] Up Device Apress IN OxCe 
SET UP POR 4 BYTES MAXIMUM TRANSFER IN DXBC 
CLR_SSENSE 
SAVE COMMAND 


ON & GO_IN OXCS 
AND WAIT FOR NEW TT ENTRIES 
N 


RE TE_IN PROGRESS JUST CONTINUE AS ABOVE 
unre SRBYTC = 0, THEN SET UP TO MAXIMUM INPUT BUFFER 


S 
EXIT FROM OXIS 


preyre IS DECREASED BY THE FOLLOWING TT ENTERED 
ROUTINE - (PREPARE CONTROL UNIT END (PCUEND)) 


SBUFA IS INCREASED BY THE SAME ROUTINE (PCUEND) 
RA 360 WRITE (MUX) WILL TRANSFER 4 BYTES AT A TIME 


THE SAVING OF SLCMD SIGNIFIES TO THE PRESENT ENDING 
at aie} (PESEND) THAT IT MUST FORMAT THE DISPLAY 


READ COMMAND 
MREAD: SAME BASICALLY AS MWRITE EXCEPT IT USES SOUTB AND SETS 
OUTPUT FUNCTION & GO IN DxcS 


READ MANUAL INPUT COMMAND 
MSRMI: FRIEND OR 2848 
IF FRIEND--JUMP TO “READ FULL BUFFER” (MREAD: 
IF 2848, WAS READ REQUESTED 7 NO- ASSUME NOP AND 
UE AN ENDING SEQUENCE TO CHANNEL (ESEQ: 


IF READ PECTED = YES (SROR@ =1) SAVE CMD FOR DISPLAY 
CONTROL (SLCMD) 
COMPUTE ADDRESS OF ourrur BUFFER 
COMPUTE THE BYTE + 
© TO READ (MREAD: 


NOTE: rT TRANSFER OF THE 4 BYTES, THE DXBC ibd. “+ ttt TO ZERO 
CREATING A CONTROL UNIT END’ TT ENTRY (PCUEND: 
SREBYTC WILL BE DECREMENTED BY 4 AND SBUFA WILL BE 


DISPLAY 
CISCTL: 
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INCREMENTED BY 4--_ THIS APPLIES TO ALL THE SELECTOR OR 
MULTIPLEXER READ CR WRITES IF THE DX HARDWARE IS 
FUNCTIONING CORRECTLY. 


---MISCELLANEOUS ROUTINES --- 


ASCDMP: THESE ROUTINES SPIT OUT THE CHARACTER 
EBCOMP: EQUIVALENT OF THE ORIGINAL OCTAL BYTE 
Orthop. IN ASCII, EBCDIC, HEXIDECIMAL , OR OCTAL.. 
.S P: 


CONTROL ROUTINE 


WAS IT A READ MANUAL INPUT COMMAND (SLCMD=2) IF YES, PICK 
UP SMINS. BACK UP. BLANK CHARACTER, SAVE SCURS 8 RETURN 


SMINS: LOADED IN INPUT COMMAND CENTER DATA ON A 7260 SCREEN) 
SMINS: USED IN REA’ AL INPUT COMMAND 
SMINS: USED IN PERFORM READ MANUAL COMMANDS 


WAS IT A_SHORT READ MANUAL INPUT (SLCMD=12) 
IF YES, JUST RETURN 


IF NEITHER, THE COMMAND MUST HAVE BEEN A 360 WRITE. 


WAS IT FRIEND OR 2848? 
IF FRIEND AND NOT SEPARATE 170 pad ( IOBUF =0) 


IF naere™ AND SEPARATE 170 BUFFERS (IOBUF=1) 
DON’T COPY INPUT BUFFER TO OUTPUT BUFFER 


IF 2846, GET ADDRESS OF START OF INPUT (SINBF) 
WAS THE LAST CMD A WRITE LINE ADDRESS? (SLCMD=S) 


DX ABORT 


CXAB: 


CLEAR CX _ INTERRUPT ENABLE i PREVENT ANY MORE INTERRUPTS 
SET THE DXABLE FLAG TO ABOR 

EXIT FROM DXISR 

.varermLy “gig noe as SYSTEM ERROR (NON EXISTANT MEMORY, 


o¢ 
----DEVICE STATUS TABLE FLAGS----- 
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DESCRIPTION OF THE DEVICE STATUS TABLE FLAGS. ‘THERE I5 
ONE FULL SET PER SPECIFIED DEVICE). 


1) THEY ARE BROKEN DOWN TO THEIR POSSIBLE CONTENTS 


2) HOW THEY ARE oo BY THE PERTINENT ROUTINE (CLOSEST 
SIGNIFICANT ROUTINE) 


3) A LISTING OF WHAT ROUTINE CLEARS THE FLAG, 
OR Set THE FLAG, OR USES THE FLAG. 


THESE FLAGS ARE USED gehts BY THE PROGRAM TO VEEP TRACK 
OF SIGNIFICANT EVENTS 


SCMD (0) 

> {ese IDLE = 0 (NO rope 
---- SWRITE: & MWRITE: = 
(owe= SRA: =e 
joume CF =3* 
<---= SENSCM = 4 
c===- SWRITE: & MWRITE: = S 
(erre SRERD: 5 MREAD: = 6 
(---= ERASCM 2 
(=--= QCUE = 10 * 
(---- “ATTENTION” =1l* 
«(---- SSRMI: & MSRMI: = le 


* oe GENERATED COMMANDS- THE REMA 


INING WERE AS A RESULT 
IBM 360/370 COMMANDS (TTe2 ENTRIES 


) 
HOW USED 


PESEND: USED TO QUEUE INFORMATION IN SRDRQ & SLCMD FOR 
LATER PROCESSING 

MEX: & SEX: USED TO PERFORM THE 360 CMD - SET UP Dx AND DO IT 

MMR TE: et ME USED TO SAVE LAST COMMAND IN SLCMD FOR LATER 


PROCESSING 
MSRMI: eS nl F USED TO SAVE LAST COMMAND IN SLCMD FOR LATER 


OCESSING 

SET UP IN USED IN CLEARED IN 

TISSRI: PESEND: CDEVST: (RUN: , ENABLE: 
PINDSC: SEX: & MEX: KILL:,PSYSRT: .PINOSC: 
PYISS: SWRITE: 8 MWRITE: PESEND: ) 


PCHENCD: SSRMI: & MSRMI: 
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54 eS an tES Poi de PROGRAM DESCRIPTION 
ERASCM 
SSENSE (2) 
SSENSE <---- INTREQ =100 
(ooce BUSOUT =40 
(o--- SCMDRJ =200 
<---- EGPCHK =20 
HOW USED 
USED BY 360 WHEN REQUESTING A SENSE CMD 
IE. SENSCM: MOV #SSENSE,a0xBA 
SET UP IN USED IN CLEARED IN 
PRIS: SENSCM: RUN: 
POHEND: ENABLE 
PSYSRT 
PSELRT 
SWRI TE 
REA 
ERASCM 
MWRITE 
MREAD 
SSTAT 3) 
SSTRT 6 eeee UCHK =e 
---- CE!DE = 14 
onan ATIN = 200 
(---- CUE =40 
HOW USED 
USED BY 360 WHEN REQUESTING STATUS ;WITH EXECEPTION 
F THE ASYNCRONOUS PRESENTING OF STATUS (ATTN) TO 


SHE 360. 
IE. STOUT: MOV SSTAT,aDXOS 


SET UP IN USED IN CLEARED IN 


MAINDEC 
C20x1B. 


HOS 
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poc 30-JAN-7a 14:26 PROGRAM DESCRIPTION 
PRARER: STOUT: | PSYSRT: 
tiie cOEYST cas 
ZATTN: Keep: eu wre 
SCURS (4) 
SCURS <---- ANY # FROM O TO 479. (CURSOR POSITION) 
HOW USED 
INPUT: USED TO CALCULATE CURSOR POSITION TO CREATE OUTPUT TABLE 
MSRMI: & SSRMI: USED TO CALCULATE BYTE COUNT FOR USE aDXBC 
USED IN CLEARED IN 
INPUT: PSYSRT: 
SSRMI: DISCTL: 
ERASCM: 
SINBF (6) 
SINBF <---- ADDRESS OF DEVICE INPUT-DISPLAY BUFFER 
HOW USED 
DUMF USED By PROGRAM Dune COMMAND TO ASCERTAIN BOUNDARIES 
DISCTL: OSED BY PROGRAM TO CALCULATE BOUNDARIES FOR INPUT BUFFER 
MWRITE: & SWRITE: USED BY PROGRAM “SP ZALCULATIO 
SET UP IN USED IN 
INIT: (CINTINO DUMP: 


DISCTL: 
MWRITE: & SWRITE: 
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SOUTB (10) 
SOuTsS (o--- ADDRESS OF DEVICE OUTPUT/DISPLAY BUFFER 
HOW USED 


DUMP: USED BY PROGRAM DUMP COMMAND TO ASCERTAIN 
BOUNDARIES OF THE OUTPUT BUFFER 

INPUT: USED TO CALCULATE START OF DATA LOCATION FOR 
LOADI 4 Ad THE OUTPUT BUFFER FOR A SUBSEQUENT 


TBM RE 
DISC Ts USED BY PROGRAM TO CALCULATE BOUNDARIES FOR ary BUFFER 
MREAD: S oxbe ties A AN USED TO CALCULATE BYTE COUNT FOR 
PSYSRT: USED TO CLEAR OUT OUTPUT BUFFER AREA (WITH FILLCH) 
ERASCM: USED TO CLEAR OUT BUFFER AREA (WITH EBCDIC SPACE = 100) 


SET UP IN USED IN 


eww ew eee meee ee 


Le 
aH & MSRMI: 


SELFA 0 (=== CURRENT BUFFER ADDRESS (FOR MUX CHANNEL ONLY) 


MSFMI: & MWRITE: & MREAD: USED TO KEEP TRACK OF CURRENT 
BUFFER ype yt » INCLUDING MEMORY MANAGEMENT-- 
LOADED IN Dx 
ALSO USED TO CALCULATE BYTE COUNT ‘(SRBYTC)-- 
LOADED IN DXBC 


ww 
mm 
a 


JOS 
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SET UP IN USED IN CLEARED IN 

PCUEND: _ MWRITE: CDEVST: (RUN 

MWRITE: MREAD: ENABLE: KILL: PSYSRT: 

MREAD: MSRMI: PINUSC: .PESEND: ) 

MSRMI: 

SONLF (16) 
SONLF <---= ONLINE =0 
---- OFFLINE = | 
HOW USED 


PHIS: IF evi IS OFFLINE-- QUEUE AN INTERVENTION REGUEST 
TO IBM CHANNEL Sa ae & 
~ WHEN CHANNEL TIMES OUT WHEN DX DIDN*T RESPOND - 
IT WILL PROBABLY SEND A SENSE CMD , THEREBY 
READING THE SSENSE 


SET UP IN USED IN 
ENABLE: = 0 PCHIS 
KILL: zs ] 
SRORQ (17) 
SFROFG ‘---- READ REQUEST 1 


(—-<—<-< 


0 
(---- READ REQUEST ACCEPTED(360)= e 
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HOW USED 
MEX: 8&8 SEX: USED TO FORCE AN ATTENTION (11) RESFONSE 
O_ IBM CHA we 


T L 

MSRMI: 8&SSRMI: USED TO DETERMINE IF AN tag sa? 
IBM READ HAD TRANSPIRED-- IF YES, QUEUE A 
ENDING SEQUENCE 


SET UP IN USED IN CLEARED IN 
INPUT: = 1 SEX: 8& MEX: RUN: 
PESEND: = 1 SSRMI: PSYSRT: 
SSRMI: 
SMINS (20) 
SMINS <---- ADDRESS OF THE DATA POINTER (MANUAL INPUT READ) 
HOW USED 


DISCTL: USED TO CALCULATE THE RELATIVE CURSOR POSITION ‘SCURS) 
MSRMI: & SSRMI: USED FOR STARTING DATA ADDRESS FOR DXBA 


SET UP IN USED IN CLEARED IN 


INPUT: DISCT RUN: 
SSRMI = 3 MSRMI: PSYSRT: 


MAINOEC=11-DZDX1-8 NE 
CZDXIB.F1i | 30-JAN-; 


W OX 


ii1-B RESPONDER 


8 14:19 


LOS 
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PROGRAM DESCRIPTION 


-TITLE MAINDEC-11-D2DXI-B NEW 0X11-B RESPONDER 
-ENABL ABS 
-ENABL AMA 
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aie .SBTTL PROGRAM EQUATES AND DEVICE ASSIGNMENTS 
194 H 
1950 3 SYSTEM EQUATES 
ige2 ko “0 
1325 teeleleyt Rl = “al 
19S4 000002 Re = “e 
19SS 000003 R3 = — 
D0 4 % 
1ge8 BOB88s Re : % 
19S8 000006 6 = *6 
19S9 000006 SP = “6 
1960 0 PC = %7 
17777 ree = 15224 
17234 KISARO = 7234 
1963 172356 KISAR7 = 172356 
1964 172300 KISORO = 172300 
1965 1775872 MMSRO = 177872 
1966 
1967 
1268 ; 
iso : TELETYPE CHARACTER EQUATES 
197 001s RR = 1 ; CARRTIA’ RE TURN 
1 ze 800 1 = 13 sLINE PEED 
133 BB B45 SPACE = 4 ;SPACE CHARACTER 
1974 oo0003 CTL ¢ = 3 ; CONTROL 
7 = . 
185e BRBBS? €tt:6 = 8? tEBNTRSE 6 
1977 0000e3 CTL.S s 23 ;CONTROL S 
1978 oo00es CTL.U = Ss ;CONTROL U 
19793 000177 RUBOUT = 177 ; RUBOUT 


NB 


eh he Phe heh bree Clee 
WOODWODWODWWODWWWVWWOWWOW x 


SELIPSHOLOBHSROD SOS -S 
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5 EERE EREE EERE EERE ERA LERE REESE E EEE RAAE SHEER AES SEE 
* * 
;* DEVICE BUFFER LAYOUT (1 PER DEVICE) ’ 
* 
eee. ae a SS” :”:t*=‘“<ié‘“i‘_i‘ 
- toe et ce INPU oer ; 
. = 
:# LOC boy 3=0D SFck NPUT BUFFER. BUFFER ¥ 


000017 
000020 


000012 


tT ARENEEESERASEARESASESEESOESSESSSESHERESEARESSERSEROE EEE REE EESS 
; LAYOUT OF DEVICE STATUS TABLE 


ScmD = 0 ; CURRENT DEVICE COMMAND 

SLCMD = 1 T COMMAND, IF WRIT 

SSENSE = 2 DEVICE NSE BYTE (NOTE -- MUST BE EVEN BYTE LOCATION) 
SStat. = 3 fit aTUS 

SCURS = 4 > CURS O31 TION 

SINGF == 6 $80 SS OF DEVICE INPUT BUFFER 

SOUT = 10 VICE OUTPUT BUFFER 

SBUF = le + CURRENT SUFFER PTR 

SRBYTC = 14 :REMAINING BYTE COUNT 

SONLF = ib ; DEVICE ONLINE - INDICATOR O=ON-LINE 1=OFF-LINE 
RDR = 17 MANUAL INPUT REQUEST -- IF NON-ZERO 

SMINS = 20 START OF MANUAL INPUT DATA 

: LOCATIONS 22-77 ARE AVAILABLE FOR EXPANSION PURPOSES 

: OTHER DX EQUATES 

bev = RO ;CURRENT DEVICE NUMBER 

DTAB = R3 :ADDRESS OF CUR DEV STATUS TABLE 

TTl1 = RY : E TABLE ENTRY 1 

TT2 = RS : TUMBLE TABLE ENTRY 2 

CEDE = 3 :CHAN END & DEV END 

Q@CUE = 10 :CODE TO QUE CONTROL UNIT END 

NOP = 3 ; NOP OMMAND 

NEWLNE = 2s NEW LINE HARACT TER 

a 2 198 IEBCOIC SPACE COD INDICATOR 

EOM = 152 ENDO OF prReSSAce In ATOR 

LINSZ = 40. :NUMBER OF CHORAC TERS PER LINE OF 2260 DISPLAY 
NOLIN = le. :NUMBER OF LINES PER 2260 DISPLAY 
DISPSZ = NOL IN#®LINSZ :NUMBER OF CHARACTERS ON THE DISPLAY 
TTSIZE = Sie. ‘NUMBER OF ENTRIES IN TUMBLE TABLE 

; 360 COMMAND EQUATES 

MWR = 1 ;WRITE DATA (FROM 360 TO PDP-11) 

CMRMI = FI :READ MANUAL INPUT (PDP-11 TO 360) 
CMWTLA = S ;WRITE LINE ADDRESS (360 TQ PDP-11) 
CMREAD = 6 :READ FU'.L BUFFER CPOP- 11 TO 360) 

CMSRMI = 12 - }SHORT READ MANUAL INPUT (PDP-11 TO 360) 


a. 


og 
$ 


fTurrmnmr Ore 


1-D2Dx1I-68 
i J 


NE 
AN-7 


060001 


000100 


000001 


000007 


000200 
000100 


ry 
78 
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MZ 


> 


Atty 
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EQUATES AND DEVICE ASSIGNMENTS 


DX REGISTER ASSIGNMENTS & LAYOUTS 


DXDS OR TUMBLE TABLE ENTRY 1 (TTI) 


100000 pened emo DETECTED 

4Q0L0 ; pal he ou MEMORY CONDITION 

20000 ; 18" be cr! ae SET 

19000 ; 18M SY 

4000 ; [BM pNTERS OCe DISCONNECT 

2000 ;UNIT C g BENTED TQ THE CHANNEL 

1000 ; CHANNEL PRESENTED TO THE CHANNEL 
400 ;BUSY WAS NTER TO THE CHANNEL 

200 eee N CTION SEQ WAS COMPLETED 
100 He L EP LAST STATUS 

40 ;CHANNEL DATA TRANSFER Ef.o 

20 ; OX OATS TRANSFER END 

10 ; INIT SELECTION SEQ WAS REJECTED 

4 ;CHANNEL SPECIFIED C CHA 

e ;CHANNEL COULD NOT ACCEPT LAST STATUS 

1 ; CHANNEL COMMAND WAS TE 


DXCA OR TUMBLE TABLE ENTRY 2 (TT2) 
BITS 15-68 = COMMAND (IF ANY) 
BITS 7-0 = DEVICE ADDRESS 


DXCS CONTROL UNIT STATUS REGISTER 


4000 ; BUSY NABLE - FOR SELECTOR CHANNELS 

1000 ON-LI tae love 

400 ;CONTROL UNIT BUSY 

200 ONE FLAG 

100 i ONTERRUPT ENABLE 
BITS 4+#3 ARE SET IF EXTENDED ADDRESS IS USED » 3ex 
BITS 2-0 ARE THE FUNCTION TO BE PERFORMED 

1 ;0X_ RESET COMMAND 

3 ;WRITE DATA TO THE 360 

5 ;READ DATA FROM THE 360 

if ;SEND STATUS TO THE 360 


DxOS OFFSET AND STATUS REGISTER 


BITS 15-10 OFFSET OF SPW TABLE 
STATUS REGISTER DEF (SSTAT) - STATUS BYTE 


;ATTENTIO 


200 
;STATUS MODIFIER 


100 


CO4 
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2032 900040 cue = 33 ‘geayee UNIT END 

Y = 
ba} 0 F = 1 BBA LE 

s8ac efelenety § : 4 he ars 

2096 o0000e2 UCHK ss 2 UNIT CHECK 

3097 900001 UEXP = I iONIT EXCEPTION 
5098 : 
203s 5 
2100 : 2848 SENSE BYTE (SSENSE) DEFINITION 
2102 o00200 ScMDRI = 200 : COMMAND REJECT 
5103 000100 INTREQ = 100 IOEVICE OFF-LINE - INTERVENTION REG 
2104 000040 BUSOUT = 40 :BUS OUT -- PARITY ERROR DURING CHIS 
2:05 500020 EQPCHK = 20 EQUIPMENT CHECK - PARITY ERROR DUR DATA TRANS 
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CZD.IB.P11 30-JAN-78 14:19 TRAP CATCHER e€o Cove 
2108 _SBTTL TRAP CATCHER ; 
2108 ‘ THE TRAP CATCHEF IS LOADED INTO LOW CORE 
2110 
21ll oo0000 s 
2li2 oo0000 o00000 HALT :FOR MEMORY MANAGEMENT 
113 000002 999090 HALT 
118 176 "REPT =—s- 176 » TRAP CATCHER 

21:6 WORD +2 

2117 HALT 

a : ees 

sidd coozo0 BSSTS° a01000 Im START sESTABLISH LOC 200 STARTING ADDRESS 
lél 


ND 
Zz 


Ore 


WWfururufufufrufury oe 


rurefruorurofurufurufrofonrorulrorlforulurulforurulolfulflfolulfulfulroururulfurfurfulfulululfofulfofrrfurulfurfurfuruforurufr 
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_SBTTL PROGRAM START-UP SEQUENCES 
: NORMAL SYSTEM START LOCATION --1000 
. .=1000 
001906 eft START: BR SYSINT ;NORMAL START UP 
: RESTART ADDRESS -- REENTER ALL PARAMETERS -- 1002 
o90:002 005037 013132 ASTART: CLR FTIMFL ;RESET FIRST TIME FLAG TO FORCE PRRAMETER REENTEY 
; SYSTEM GENERALIZED INITIALIZATION PROCEDURE 
: SET-UP STACK POINTER 
TRAP/VECTOR AREA 
: SYSTEM GENERATED TRAPS 
: TELETYPE (CONSOLE) VECTORS + STATUS REGISTERS 
; CLEAR ALL LIVE SYSTEM VARIABLES 
; SET UP TELETYPE INPUT 7 OUTPUT BUFFERS 
001006 012706 012636 &YSINT: MOV aSSTACK, SP ;SET UP THE STACK POINTER 
001012 ooo000s RESET :RESET ALL DEVICES 
; SET UP CONSOLE VECTORS 
001914 012700 oo00060 F MOV #60,RO ;START OF CONSOLE VECTORS 
001020 Ole7e0 O10744 MOV aTKIN. (RO)+ :BEG OF TELE INPUT ISP 
001924 Gle7e0 o00340 MOV #340, [RO)+ :NEW PROC STAT 
901030 Ole720 011232 MOV #PISR, (RO)+ !BEG OF TELE PRINT ISR 
001034 012710 o00340 MOV #340, (RO) "NEW PROC STATUS 
: SET UP MISC TRAPS 
001040 012737 011672 oo0004 MOV #MTO,4 ;MEMORY TIME OUT TRAP 
0010 012737 000340 o00006 MOV #340'6 
001054 012737 011700 ooD250 MOV aMMERR, 250 ;MEMORY MANAGEMENT ERROR 
001062 612737 000340 OO026e MOV #340, 22 
: CLEAR ALL VARIABLES 
001070 012700 012636 ' MOV aVSTRT, RO ;START OF VARAIBLES 
001974 Ole701 O00e7e MOV #VEND-VSTRT+2,R1° ;# OF VARAIBLES TO CLEAR 
001100 105020 10$: CLRB (RO)+ :CLEAR A BYTE 
001102 005301 DEC RI : DON 
001104 001375 BNE 10$ !NO, CONTINUE CLEARING 
: SET UP TELE BUFFER POINTERS 
001106 012737 912640 ole74e ' MOV sTBUF, TPTR ; TELE INPUT POINTER 
001114 0612737 Ole744 013046 MOV #PBFSPFPTR !TELE OUT FETCH PTR 
OG6i12@2 012737 O12744 013050 MOV #PBFS’PPPTR 'TELE OUT PUT PTR 


WW) 
VAR FZINSSSVEHLG AH Oww vorure ws ODP EWE Oe: IN rant ttete ltt deta ht et om 


: ENABLE TTY 


OF 
ty 
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-JAN-78 14:19 PROGRAM START-UP SEQUENCES SEG 
OSe777 900100 Oi1316 BIS #100,aTKS ;ENABLE TELETYPE INPUT 
OS. 000i00 011314 BIS #100,aTFS ENABLE TTY OUTPUT INTERRUPTS 
00S037 i?rr? CLR PSW CLEAR 1. PROCESSOR STATUS WORD 
008737 O13i3e TST FTIMFL IFIRST TIME THROUGH? (MUST PARAMETERS BE PEENTERED 

BEG GETPRM :YES, FORCE USER TO ENTER ALL PARAMETERS 

C0013" d0e0etb JMP INT) INO, RESTART TEST USING SAME PARAMETERS 


NB 


furufurururorofororurufururururur Oe 
OOOGOODD DDD DOODDD <5 

~ 
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.SBTTL TOTAL SYSTEM RESTART (REQUEST NEW RUN TIME PARAMETERS 


; HERE TART GETHERING T TEST INFORMATION 
; - Bri NT START-UP HERALD Resse 


a 


‘o ' 
— 


001i62 004737 011330 keTPRM: JSR PC, CRLF ;RESTORE THE CARRIAGE 
001166 004137 O11472 SR R1/NESG [PRINT START-UP MESG 
001172 013134 WORD STMSG 
; GET DX11 UNIBUSS ADDRESS (OCTAL ADDRESS INPUT 
; VALID NIBUS ADORESSESS (7600 = 177000) 
; DEFAULT UNIBUS ADDRESS 176200 
091 74 905037 013132 NEWPRM: CLR FTIMF ; RESET FIRST TIME PARAMETERS ‘(FORCE ALL PRARMS TO BE ENTE 
01200 012737 176200 o1esib MOV #176200,UNADDR ;SET UP DEFAULT ADDRESS 
001206 904137 002632 JSR R1, INOCT :CET UNIBUS ADDRESS 
OOlele 013175 .WORD UNMSG 
001214 001260 ‘WORD 5S ;ADDRESS OF DEFAULT ROUTINE 
091216 leo4e? 000015 CMPB Ra CR :WAS L LINE Bin 10 REEEN PROPERLY” 
ie 
851554 O45 383 176200 ene R581 76200 NRC 1D. UNTBU 5 ABORESS’ TEE TWEEN 176200 AND 17700 
posse po54R> 177000 ate Ee 77000 UN B 770007 
sis 
Boisse basse Ser REWPAM ye U5 ARDR E55,61477 
001240 032703 000037 BIT 83743 E & SURE 40 9 OCTAL EORD BOUNDRY 
B6t 46 §04333 001174 oo0004 MOV @NEWPRM, 4 ie Ge RAB Bure TO VALIDATE ADDRESS 
001254 .:0337 O12516 MOV R3, UNADDR : SAVE UNIBUS ADDRESS 
OGi2e60 005077 11232 S$: CLR QUNADDR VALIDATE THE UNIBUS ADDRESS 


:TRAP WILL OCCUR IF INVALID UNIBUS ADDRESS 


GET THE DX11_ INTERRUPT VECTOR ADDRESS soca. ADDRESS INPUT? 


BENE 


Singer 


Be88see000g0R00 
WwW 


ee eh 
WWWWWWWWWW& 


£ 
Oo 


Bbd3d 


D02e 32 


000015 
000300 
000770 
000001 
012520 


BEFAULY™ vee pat ‘300 


ft 
00 ReecTAD 
et VECTOR ADDRESS 


tee cin OF THE DEFAULT ENTRY 
DELIMITED PROPERLY’ 


REENTER 
NG, VECTOR ADDRESS BETWEEN 300 AND 770 
700, Lou GIVE AN ERROR AND REENTER 
:YES, REENTER 
; WORD ADDRESS” 
0, REENTER 


GET genres AND ENDING DEVICE CHANNEL gone see (HEX INPUT) 
LID DEVICE CHANNEL ADDRESSES (93. - 
SEFAULT DEVICE CHANNEL ADDRESS 


HOY 
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CIDxIB.Fil 30-JAN-"8 14:19 TOTAL SYSTEM RESTART (REQUEST NEW RUN TIME PARAMETERS? FEG COME 
4 g 
sue : NOTE: ITHER ONE On THO ADDRESSES Nay BE SPECIFIED. IF ony ONE 
s53 : BRBURES dE RGEAERS 
4y ° 
? 2 : MOV ® :DEFAULT TO HEX ADDRESS 19 
384) 38 332 b18737 gonn2eg pizece c0$: Mov =a. BEV 
§ 48 O01 4137 OS026e4 JSR. Ri, tNHEX :GET DEVICE ADDRESSES IN HEX 
. V 
5oc6 501 366 Boise0 - HSRB DEVE S sADDRESS OF THE DEFAULT ROUTINE 
2251 001370 10337 012522 bd RS, SDEV :SAVE START DEV ADDR 
ee 4 Vv ’ 
33 01809 203 _— TST R ;BE SURE POSITIVE 
4 O014 10076) BMI 20S 
ees6 901404 920327 000377 cnr R3 48377 s0ND WOT GREATER THAN 377 -- HEX FF 
ose8 001412 120427 oD00S4 CMPB R4.@’, :MORE THAN ONE DEV? (COMMA, PARAMETER DCELIMETER, 
oSeg ates ithe 011604 aOR 2 ,CHTB ET ENDING DEVIC 
ee 
2260 pet asS 10337 Bi seoq MOV R3,EDEV o8VE "ENDING AOOR ss 
ecb 1 091430 023737 012522 o12524 CHP soev, EDEV We 
2263 001440 oe seas O1es22 SUB S0EV R3 ORE "FRROR 8 DEVICES” 
cers Goiseg Ogasse woe” ars i 
2266 001452 120427 900015 30S: CMPB 26 #CR BS DEVICE ADDRESSES DELIMITED PROPERLY? 
2267 901456 001332 BNE 20% NO. REENTER 
2268 
2269 ; 
2270 ; GET TYPE wok 360/370 CHANNEL 
2271 : TIPLEXER CHANNEL 
2272 : 5 = SELECTOR CHANNEL 
ge73 ; DEFAULT IS 'S*, SELECTOR CHANNEL 
2275 001460 105037 O12s2e NEWP10: CLRB CHTYPE ;0=M, 125 
2276 001464 004137 O02b3e2 ISR R1, INOCT :GET CHANNEL TYPE 
2277 001470 013344 .WORD CHTYMS 
2278 001472 O0i1S510 .WORD 50S ; DEFAULT TO SEL cTOR CHANNEL 
2279 001474 120427 oD0115 CMPB RY. #’M ULIPLEXER CHANNEL -- 
22 001500 001414 BEG 60$ ves, “MULTIPLEXER CHANNEL 
2281 001502 1e04e7 900123 CMPB RY, 8°S 3S? *- SELECTOR CHANNEL -- 
2eBe 001506 001364 BNE NEWP 10 !NOT S OR M -- ERROR 
2283 001510 i05237 o12526 sos: INCB CHT YPE : SELECTOR CHANNEL 
ees 001514 000406 BR 60% :GET MEMORY MANAGEMENT FACILITIES 
2286 
2287 : 
2e8e ; MEMORY MANAGEMENT TIME-OUT TRAP HANDLER 
eces : USED ONLY FOR PARAMETER ENTRY PROCESS 
229: O01516 O22626 éss: CMP (SP)+,(SP)+ ;DUMP PC AND PSw SAVED BY INTERRUPT 
2292 001520 005957 177776 CLR PSW ; TURN DOWN PROCESSOR STATUS 
2293 901524 904137 011472 ISR R1,MESG :PRINT “NO MEM MANAGEMENT AVAIL” 
2e94 O01530 014152 .WORD  PNOMM 
2295 ;ASK TO HAVE QUESTION REENTERED 


MARINDEC- si ieee NEW tHe RESPONDER 


CZOxIB.P 35-JAN-78 
2297 
2e38 
2e33 
2300 
2301 
2302 — 
2303 O001S53e 105037 oO12Se" 
2304 001536 004!37 902632 
230S 001542 013376 
e306 001544 001600 
2307 OO1S46 12e04e7 OO01iE 
2308 O001SSe O014le 
2303 O01SS4 120427 000131 
2310 001560 001364 
2311 O001S56e 105237 dOlese 
2e3ie O001SS6 Ole737 001516 coOcooY 
2313 001574 905037 17757 
2314 
22:is 
23i6 
2317 
2318 
2319 
23e0 
23e1 001600 004137 d02e632 
232 001604 0134356 
2323 001606 001704 
23e4 001610 1204e7 oOOo001s 
23eS 001614 001371 
23e6 001616 032703 ooonvi 
2327 001622 13 
2328 001624 O20327 o00020 
23e9 001630 002763 
2330 001632 005703 
2331 001634 100761 
2332 001636 O20327 9000734 
2333 O0164e O02 
2334 001644 105737 012527 
2335 001650 O014le 
2336 O0016Se 010304 
2337 001654 042704 oo0b00 
2338 001660 O204e7 OOOIS4 
2339 001664 003407 
2340 001666 004137 9011472 
2341 
e342 
2343 
2344 001672 017051 
234S 001674 000741 
2346 
2247 001676 020327 900134 
2248 001702 002336 
23439 001704 010337 012530 
2350 
2351 
e3Se 


bos: CLRB 


MACY11 3O0A(1 
TOTAL SYSTEM RESTART 


DETERMINE IF EE one MANAGEMENT 


IO4 


O1-FEB-78 09:46 


OS?) PAGE 4 
(REQUEST NEW RUN TIME PARAMETERS ) 


S TO BE USED 
MEMORY MANAGEMENT TO BE USED 
= NO,’ DO NOT USE MEMORY MANAGEMENT 
Nez alos IS 'N’, DO NOT USE MEMORY MANAGEMENT 


MMRE SP DEFAULT TO NO MEMORY MANAGEMENT 
Ri INOCT GET MEM MANAGEMENT 

70$ DEFAULT ROUT INE ADORESS 

RY. @’N ? =-00 NOT USE MEMORY MANAGEMENT 

70$ OF EQ, NO MEMORY MANAGEMENT 

Rae" } i ceaille MANAGEMENT TO BE USED 
MMRESP : MEMORY MANAGEMENT SPEC 

#SS$_4 :SET UP TRAP TO TEST MEMC.<Y MANAGEMENT 


:CHECK FOR MEMORY MANAGEMENT 


00's 
ALID RELOCATION | ADDRESSES 20 - 700) 
DEFAULT RELOCATION ADDRESS 20 ---(20000) 


408: JSR R1, INOCT ;GET BUFFER RELOC. IN ,O00'S 
' .WORD BFREMS 

“WORD NEWP2O ; ADDRESS OF DEFAULT ROUTINE 
CMPB RY, #CR WAS LINE DELIMITED PROPERLY? 
BNE 70% NO NTER 
BIT #1,R3 :MUST BE A MULTIPLE OF 2000 
fe RStzo 
BLT 70% ;ILLG BUFFER CONST -- LT 20000 
TST R3 :IS NUMBER NEGATIVE? 
BMI 70 :YES, REENTER ADORE 
CMP R3, #734 :1S ADDRESS TOO LARGE? 
BGE 70% YES, REENETER ADORES 
TSTB MMRESP :WAS MEMORY MANAGEMENT SPECIFIED? 
BEQ 71$ :NO, CHECK FOR 28K 
MOV R3,R4 + VALUE IN WORK REG 
BIC #600, R4 IGNORE ADORESS EXTENSION BITS 
CMP RY, #1S4 :IS IT TOO CLOSE TO 200000 BOUNDARY? 
BLE NEW ed ; BRANCH IF OK 
JSR R1,MESG :PRINT ERROR. CANNOT SET BUFFER SO 

:CLOSE TO A 200000’ BOUNDARY THAT'A CARRY WOULD BE NEEDED TO CHANGE 


; THE EXT SA ADORESS BITS. 


; BOUNDAR 


718: a 
NEWPeO: MOV 


THE DX CANNOT WORK ACROSS 200000 


TOOC ;ADDRESS OF TOO CLOSE MESSAGE 
70$ :ASK FOR INPUT AGAIN 

R3, #134 IS IT TOO CLOSE TO 1/0 PAGE? 
7 Nee REENTER THE ADDRESS 

R3, BUFREL :SAVE REL CONST 


; GET TYPE OF TEST TO BE RUN 


statatstatatet=t=tats} 
= eh ee 
Nae Few 
Heron Norco 


01eS3e 
00e63e 


000100 
000104 
000106 


012S34 
01eS32 


012533 
002632 


000116 
000131 
012533 


o02be4 


MACY11 39A(1 
TOTAL SYSTEM *RESTAR RT 


JO4 


OS2) O1-FEB-78 09:46 PAGE 428 
(REQUEST NEW RUN TIME PARAMETERS) 
D= eee RESPONDER DIAGNOSTIC 
F = FRIEND 
DEFAULT = °F’, FRIEND 
TSTTYP : RESET TEST TYPE 
R1, aNOCT GET TEST TYPE 
TESTMS 
100$ ones! TO FRIEND 
SEBCOSP, FILLCH ;FOR 2648 SET FILL CHAR TO EBCDIC SPACE 
R4.8°D ;D? --2848 RESPONDER DIAGNOSTIC -- 
INtT :YES, 2848 TEST 
RY, a'F :F? =< FRIEND TEST -- 
ga$ : ILLEGAL ENT 
FILLCH : FRIEN is) Hobe” -- DEFAULT FILL CHAR TO NULL 
TSTTYP :SET TEST TO FRIEND 


FRIEND TEST ONL 
DETERMINE IF SEPARATE INPUT 7 gure BUFFERS ARE TO BE USED 


, MAINTAIN SEPARATE INPUT 7 OUTPUT oBy FFERS 
= NO, USE SAME BUFFER FBR INPUT AND OUTP 
Natty IS 'N’, NO, USE SAME BUFFER FOR INPUT / OUTPUT 


IOBUF :0 = = YES 

Rl, INOCT iO pARAtE. 1/0 BUFFERS? 

INIT ; DEFAULT TO_NO 

RY, #'N :N? NO, SAME I/O BUFFER 

INtT iF EQ, USE SAME 170 BUFFER FOR INPUT AND OUTPUT 
RY. #’Y --YES ARATE 1/0 BUFFERS- 

1108 ‘ERROR REQUEST INPUT AGAIN 

10BUF :SET SEPARATE 1/70 BUFFER INDICATOR 


FRIEND TEST MODE ONL 
GET arr FILL CHARACTER (HEX peut REQUIRED? 


Y VALUE WILL BE ACCEPT 
R1, INHEX :FILL CHARACTER 
FICLMS 
INIT 
R3,FILLCH 


KO4 


MAINDEC- 511-02 DXI-B NEW DXi1-B RESPONDER MACY11 30A(1052) O1-FEB-78 09:46 PAGE 49 
CZDxIB8.P 30-JAN-78 14:19 PROGRAM INITIALIZATION 
2336 .SBTTL PROGRAM INITIALIZATION 
2398 : INITIALIZATION 
53 : 
2401 : SET UP ALL DX BUFFERS, MEMORY MANAGEMENT REGISTERS 
e4Ge : AND DX REGISTERS 
2404 002026 012737 011672 O00004 {tNIT: MOV :SET UP MEMORY TIME OUT TRAP 
240S 002034 613701 O12516 MOV ONABOR R1 :SET UP OX UNIBUS ADDRESSES 
2406 OO2040 Ole702 012464 MOV aDxDS S,Re 
2407 OOe044 012703 O000i5 MOV R3 313 ADORESSES (REGISTERS) 
2408 O020S0 010122 10$: MOV Ri sikase :SET UP UNIBUS ADORESS 
2409 O020Se 005721 TST (RI)+ :INCR TO NEXT DX REGISTER 
2410 002054 005303 DEC R3 ; DONE? 
Eafe! o02e0S6 001374 BNE 10$ :NO, SET UP NEXT REGISTEF 
e413 : SET UP DX VECTOR ADDRESS 
24iS O02C60 013701 O1e520 MOV VECTAD,R 
2416 002064 Ol2721 005334 MOV #DXISR; CRL)+ ; TRAP TO Dx ISR 
e417 002070 Ol12711 oO00340 MOV #340, (R1) :SET UP PROC STATUS AT INTER. 
2419 ; COMPUTE ADDRESSES OF DX BUFFERS 
siso ; CURRENTLY THIS INCLUDES DATA AREA, TUMBLE TABLE, AND SPW TABLE 
e422 002074 005737 012530 TST BUF REL ;WAS BUFFER RELOC SPECIFIED” 
2423 002100 001003 BNE 20$ 7¥ 
002102 012737 o00020 012530 MOV #20, BUFREL :NO, MAKE BUFFERS START AT 20000 
2425 002110 013737 012530 013100 20s: MOV BUF REL , PBUFA i SAVE PHYSICAL ADDRESS 
2426 0020116 013737 012530 013102 MOV BUF REL; VBUFA :SAVE VIRTUAL ADDRESS 
2427 O0e12e% 105737 012527 TSTB MMRESP :WAS MEMORY MANAGEMENT SPECIFIED? 
eee 002130 001436 BEG 40S :NO, SET UP BUFFERS 
2430 : MEMORY MANAGEMENT WAS SPECIFIED 
cial : SET UP KERNEL 75° e BrocRan 
2433 : 20000-157777 = BUFFERS (VIRTUAL ADDRESSES) 
e434 : 160000-1 UNIBUS ADDRESSES 
4 ; ONLY I SPACE ReaTsteRS: WILL BE USED 
2437 002132 012704 172340 / MOV #KISARO, R ;I-SPACE PAR 
2438 0021 012705 172300 MOV sk 15DRO; ce i T-SPA CE POR 
2439 002142 o0S0e4 CLR (RY A 0-17777 = PA 0-17 
2440 002144 012725 077406 MOV #77406 (RS)+ at BLOCKS UNC IMTTED ACCESS 
2441 002150 013703 013100 MOV ,R3 :PHYSICAL ADDR * 2-6 
e44e 002154 006303 ASL 
2443 002156 006303 ASL R3 
2444 002160 006303 ASL R3 
2445 O02l6e 010324 30S: MOV R3, (R4)+ ;SET UP PA FOR VA 20000-157777 
2446 002164 0127 077406 MOV #77406, (RS)+ :64 BLOCKS, UNLIMITED ACCESS 
2447 002170 062703 O000200 ACO #200,R : INCREMENT TO NEXT 4K BANK 
2448 002174 Oe0427 172356 CMP RY, SKISAR7 :ALL BUFFER ADDRESSES SET UP? 
2449 002200 001370 BNE 30% :NO, SET UP NEXT REGISTER 
2450 O0e202 012714 007600 MOV #7600, (RY) :SEtT UP UNIBUS ADDRESS REGISTER 
2451 O02206 012715 077406 MOV #77406, (RS) :64 BLOCKS, UNLIMITED ACCESS 


LOY 


eee |} meee”. -B NEW OXii-B RESPONDER Y11 308A gee) O1-FEB-78 09:46 PAGE SO 
CZD0x1B.P 30-JAN-78 14:19 PROGRAM INET IALIZA TION 
e4Se O0e22le Ole737 OO000!1 177572 MOV #1, MMSRO ere MEMORY MANAGEMENT 
12737 CO00eO 013102 MOV #20, VBUFA O 8K BANK OR 20000 AND UP 


cies O0eeed O 


24s ; 

e4ss : START SETTING uP SPW TABLE 

e456 : 1 ENTRY PER DEVICE (256 DEVICES) 

2457 : ENTRY DE CRIP TION 

2458 : ----FOR VALIO DEVICE NUMBERS 

e455 : BITS vc -8 oF OFF set TO DST TABLE (‘PHYSICAL ADDF) 
4 ; 

e461 : ----FOR INVALID DEVICE NUMBERS 

2462 : BITS 15- 8=0 

ede: ; 3-0 = 2 -- UNIT CHECK 

465 : THIS TABLE IS REFERENC NN EACH 360 ACTION TO DETERMINE 

466 : iF be VTE RUNSER ts VALID. Furs AUTOMATICALLY DONE 
2467 ; Y THE DX CONTROL UNIT 

suee 002226 013705 013100 sos: MOV PBUFA,RS ;COMPUTE OFFSET PHYSICALLY 

evrt Queen (oeaes tee ~— 

e47 poss boesce ASL 

2473 002240 010577 oO102e6 MOV Re a0xos ;OFFSET TO SPW TABLE 

24 002244 013701 013102 MOV VBUFA,R1 :COMPUTE VIRT ADDR OF SPW TABLE 

2475 O022eS0 000301 SWAB Ri : #1000 

2476 252 105001 CLRB R1 

2477 002254 906201 ASL R1 
ou58 002262 o1o137 pt 3tdq HOV Ri’ PHYOFF ih: MBUTE THEO OFF T EE PHYSICAL ADORESSES 

‘ ES 
2480 266 160537 bi 3p SUB Ré PHYOFF senebee VIRTUAL Soe FoR bP Sas M MANAGEMENT 
2481 O02e272 062705 003000 ADD #3000,RS ores THE DST FAB BLE 
2482 oo¢e76 0537 013116 MOV RS, OSTOFF Save a pe % 3s T TABLE 
- 2483 302 CLR V :START AT DEVICE 
2484 304 120037 O12S22 SOS: CMPB DEV, SDEV :IS DEVICE NUMBER VALID 
002310 O02405 BLT NO 
e4 002312 120037 o1e2se4 CNPB DEV, EDEV 
suea OBSseB BroSer aGy RS, (RL) ‘VALID DEVICE DST OFFSET TO ENTRY 
Vv + $ 

2489 O0e322 o00402 BR 7 

2490 002324 O12721 o00002 60S: MOV SUCHK, (R1)+ i INVALIO DEV # UNIT CHECK TO ENTRY 

2491 002330 005200 708: INC VIC 

2492 002332 020027 oD0409 CMP DEV, #256. aa BevICes DONE? 

e433 002336 001362 BNE Ter ] :NO, SET UP SPW FOR NEXT DEVICE 

oiar ; NEXT SET UP TUMBLE TABLE AND DUPLICATE TUMBLE TABLE 

2497 002340 010137 013062 . MOV R1, TTADOR ; TUMBLE TABLE ADDRESS 

2498 002344 010137 013060 MOV R1’TIPTR ; TUMBLE TABLE FETCH POINTER 

2499 002350 012702 001000 MOV attsize, R2 CLEAR TT ¢ + DUPLICATE T/T (WORD POINTER) 
2500 002354 005021 BOS: CLR ‘CLEAR NEXT WORD 

2501 002356 005302 DEC Re 

ese 002360 001375 BNE g0$ :NO, CLEAR NEXT WORD 

e504 ; SET UP osT TABLE 

es05 ; THE pst TABLE IS USED TO VERIF y COMMANDS FROM THE 

e506 ; 360, THIS IS DONE BY THE HAROW 

es07 ; THE DST TABLE IS A BYTE TABLE, 1 BYTE PER POSSIBLE 


MAINDEC-11-OZOXI-B NEW OX11-B RESPONDER 
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000013 
002610 


00036S 
oo0000e 


000740 


013110 
013076 


oo0006 
000010 


PROGRAM 


OO OF Oe oe eres weet OF Sees ee Oe es os oe 


INITIO: 


100S: 


MO4 


MACY11 30A(10S2) O1-FEB-78 09:46 PAGE Si 
INITIALIZATION 


NO 0-255. THE ENTRY IN THE DST TABLE IS 
THE 360 


SENT TO : 
THE er A LIST OF Mn po commenBeccniprion 


M x ; UFFER 
t RE E HRNUAL INPUT 
3 CE!DE iN + ¢ 
g RTE Cine ADORESS 
5 8 Phase’ CohnaND 
l2 0 SHORT READ MANUAL INPUT 


ALL OTHER COMMANDS ARE RESPONDED WITH UNIT CHECK 


MOV #13,R2 ;NUMBER OF VALID 360 COMMANDS 
MOV sVCMOTB,R3 :VALID COMMAND TABLE 
nove (R3)+, (R1)+ 50 OST TABLE 
INITIO :NO, MOVE IN NEXT_RESPONSE 
MOV #245. ,Re :MOVE UNIT CHECK TO INVALID ENTRIES 
nove SUCHK: (R1)+ 
eg 100$ 
COMPUTE MAX NUMBER OF DEVICES 
MOV EDEV,R3 
SUB SDEV,R3 
INC R3 ;START AT DEVICE NUMERO UNO 
MOVB R3, MAXDEV 
MOV BOEY DEVCON ;SET UP DEVICE NUMBER -1 
DES VCON 
MOV #1, SELDEV ; INIT DEVICE NUMBER FOR MUX AND SEL EXECUTORS 


NOTE -- THE DEVICE BUFFERS ARE USED BY THE SOFTWARE ONLY TO CONTAIN 
PCINTERS AND INPUT AND OUTPUT DATA FOR EACH DEVICE; 


START SETTING UP DEVICE BUFFERS 


MOV R1, SDEVTB ;SAVE START OF DEVICE BUFFERS 
CLR DEY :DEV # 

MOV R1,D0TAB :SAVE ADDR OF DEVICE STATUS TABLE 

mov we7e. , Re :CLEAR DEVICE STATUS TABLE + INPUT BUFFER 
DEC Re ; DONE? 

BNE !NO, CLEAR NEXT WORD 

MOV OTAB, SINBF (DTAB) 

ADD #62.;SINBF(DTAB) ;COMPUTE ADDRESS OF INPUT BUFFER 

MOV DTAB; SOUTB(DTAB) 

ADD #544’ SOUTB(DTAB) ;COMPUTE ADDRESS OF OUTPUT BUFFER 


MOV #DISP§Z,R2 


Ne 
On 
ae 
be 


tata 
eae 


ttt 
8304 


Cc 


-11 
-Pill 


o0ese4 
002530 
00eS3e2 


002576 
002602 
002604 


113721 
005302 
001374 


G 
002624 


012534 


013067 
013100 


177747 
013112 
000001 


011472 
002720 


-DZ0x!I 3 Nee OX ot RESPONDER 
30-JAN- 19 


013132 


PROGRAM 
12S$: 


NOY 


MACY 11 908 1052) O1-FEB-78 09:46 PAGE S2 
INITIALIZATION 

MOVB FILLCH, (R1)+ ;FILL OUTPUT/DISPLAY BUFFER 

DEC Re : DONE? 

BNE 125$ :NO 

INC DEV :HAVE ALL DEVICE BUFFERS BEEN SET UP” 

CMPB DEV, MAXDEV 

BNE 120% ;NO, SET UP NEXT DEVICE BUFFERS 

MOV PBUFA,RS :SEt UP EXTENDED ADDRESS BITS 

ASR RS 

ASR RS 

ASR RS 

ASR RS 

BIC #177747, RS ;SAVE ONLY H.O. 2 BITS 

MOV RS, XADDR :SAVE EXTENDED ADDRESS BITS FOR DX CONTROL REG 
MOV #1) FTIMFL :SET FIRST TIME THROUGH FLAG 


one TRL Leet ioe COMPLETE 
TELL OPERATOR WE ARE ALREADY TO GO 


NOTE: AT THIS POINT THE DX_HAS NOT BEEN STARTED 
AND_THE OPERATOR MUST TYPE R (RUN COMMAND) 
TO THE SHOW UNDER WAY 


JSR R1,MESG ;TELL OPERATOR WE ARE READY TO GO 
WORD RNMESG 
IMP EXEC ;GET THE SHOW ON THE ROAD 


VALID COMMAND TABLE 


: .BYTE O ;0 = TEST 170 
-BYTE O ;1 = WRITE BUFFER 
BYTE O ;@ = READ MANUAL INPUT 
-BYTE CE!DE ;3 = NOP 
BYTE O 34 = SENSE COMMAND 
BYTE O ;5 = WRITE LINE ADDRESS 
BYTE O ;6 = READ FULL BUFFER 
-BYTE O ;7 = are COMMAND 
BYTE UCHK ;10 = INVALID 
BYTE UCHK 311 = INVALID 
Pen 0 ;12 = SHORT READ MANUAL INPUT 


BOS 


MAINDEC-11-DZOXI-B NEW Oxi1=8 RESPONDER 1 30A(10S2) O1-FEB-78 09:46 PAGE SEG 
mete Pil 30-Jan-78 19 INITIALIZATION PARAMETER INPUT AND CONVERSION gE Fines 5&6 

2604 _SBTTL INITIALIZATION PARAMETER INPUT AND CONVERSION ROUTINES 

SeoE : INHEX -- PRINT MESSAGE, WAIT FOR INPUT, GET IT @ND CONVERT THE HEX TO BINARY 

2607 ; 

2608 : CALL ING SEQUENCE 

ats JetRD | AOOR TO BE PRINTED 

geil : > WORD RODRESS OF OF DEPaUCT ROUTINE 

2613 cP ) -aee = ExT C CHAR cere 

2615 : RS m4 (BIT ‘oo ) FIRST NON-OCTAL CHARACTER 

cb18 : RS = NUMBER R OF CHARCTERS CONVERTED 

2618 GOe624 012705 011604 tNHEX: MOV #CHTB,RS ;MOVE ADDRESS OF CONVERSION ROUTINE TO RS 

2619 002630 000402 BR INRS 

e6c1 : INOCT -- PRINT MESSAGE, WAIT FOR INPUT, + GET IT AND CONVERT OCTALL TO BINARY 

2623 : CALLING SEQUENCE 

2624 : kis R1, INOC 

ebes ; .WORD ADDRESS OF MESSAGE TO BE PRINTED 

2626 : WORD SS OF THE DEFAULT ROUTINE 

2627 Fae veal RET 

2628 : = NEXT ¢ CHAR PTR 

2629 : Y RESUL 

2630 ; a > (BIT a's -7) ET RST NON-OCTAL CHARACTER 

g631 : Ss R OF CHARS CONVERTED 

002632 012705 011540 tNocT: mov sCOTB,RS SET uP SS OF THE CONVERSION ROUTINE 

2634 002636 012102 INRS: MOV (R1)+'Re S OF THE MESSAGE 

2635 002640 004737 011404 10S: JSR pe PRMESG INT THE DESIRED MESSAGE 

2636 O02e644 105037 013053 cL TCMACT ; RESET ative FLAG 

2637 0026 105037 013054 e TCMDAaB ; T T FLAG 

38 002654 105737 013054 30S TSTB TCMDAB :C ABORT? 

2639 001367 BNE 10 :YES, REASK QUESTION 

e640 002662 108737 013053 TsTB TCMACT ; WAS ENTRY COMPLETED? 

2642 002670 Ole70e 012640 MOV #TBUF Re :Set ADORE SS OF BEG OF INPUT BUFFER 

2643 002674 9004715 JSR , oRS :C RT INPUT TO BINARY 

2644 002676 9005705 TST :LOOK FOR DEFAULT RESP -- C/R 

4S 002700 001005 BNE 40S :NOT DEFAULT TAKE NORMAL RETURN 

2646 O02702 i2e0427 o0001S CMPB RY, #CR ILLEGAL CHAR MUST BE A C/R 

2647 0027 001002 BNE 4 :I1TS NOT A DEFAULT 

2648 002710 011101 MOV (RL) .RI !---TAKE THEY DEFAULT RETURN 

ceea paso 15 poset 40S nae Rh INCR FOR NORMAL RETURN 

: (R1)+ ; 
2651 O0e716 800201 RTS Ri 


COS 
MOANO BSE OPO SAS NER PU2 tS® RESPONDER sa cxcrouNb te ce Pepe  PaMMANB DE SPATEHER teRech PhO” 


2652 .SBTTL BACKGROUND TELETYPE COMMAND DISPATCHER (EXECUTIVE: 
ste: : SYSTEM EXECUTIVE”BACKGROUND 

5é : THE SYS EXEC EXECUTES THE SYSTEM TELETYPE COMMANDS 
2657 : 

; NTRY TO THE TE Cc EXE alse PERFORMED 

seeg : YonEcurs a. June a ex pene fe 
2660 : Y_REGIS GISTERS TO AES SAVED OR CONTROL 
2661 : RTS "PCE 19 MISE PR 
ebbe : EN RY TO SPE COMMAND EXEC EC CAUSES THE ST STACK POINTER 
eee : Mare Be ES ENG THs ns! eee 4 ON THE HANOL ERE HI 
cobb 902720 004737 911330 EXEC: JSR PC ,CRLF ;PRINT CR/LF 

8 002730 004737 011346 JSR PC, PRIN z. ae dae NT So ENOTE COMMAND MODE 

0 740 TOeOa9 815828 CLRB aRact ‘ REE ER apd Cc 
2671 002744 105037 9130 4 cLRE TCMOAS CLEAR TELE CMD ABO 
267 4 182935 813038 10S: ii Bx L BB THE OX count B AN OPERATION ” 
eos boseeS ates 4 ind e05 x iY yee $9 ONT TNE THE DX REGISTERS 
sere Sieve Teehe? Opes9 zos: io Heaeet YES rida 2: cBWitio"¥§ Bue SCRE 
eb? 002774 000767 BR ibs ings Es ate IF NOTHING TO DO 
eeec : THERE IS A TELETYPE COMMAND TO BE EXECUTED 

002776 O12702 012640 40S: MOV #TBUF ,R2 iy UP PTR TO START OF TELE BUFFER 
2683 0030 112203 MOVB (Re) COMMAND IDENTIFIER 
2684 0030 042703 177400 BIC #177400, R3 VE b-9 YTE 
003010 012704 003044 MOV sTCMOTB.RY ery Brae TO COMMAND TABL Ee 

86 003014 O20324 40$: CMP R3, (R4)4 Ber COMMAND MATCH TABLE ENT 
2687 003016 001411 BEQ EXECMD :YES. WE GOT A MATCH - START EXECUTION 
2688 003020 O22404 CMP (R4)+,R4 ; INCR TO NEXT, COMMAND 
2689 003022 005714 TST (RY) ND T 
2630 003024 0013723 BNE 40$ ‘NO, TEST a4 ENTRY 
e6ae : COMMAND ERROR - NOTIFY OPERATOR WITH ? AND “BELL” 
2694 003026 012702 137607 AERR: MOV #137607, Re ;PRINT ? AND “BELL” 
2695 003032 004737 011346 JSR PC, PRINt2 
e696 003036 000137 002720 IMP EXEC ;RETURN TO EXEC 
e698 : EXECUTE COMMAND 
2700 003042 0001234 EXECMD: JMP acR4)+ ;EXECUTE COMMAND 
670e : TELETYPE COMMAND TABLE 
2704 003044 000101 tCMDTB: .WORD ’A ;A = ACCESS 
2705S 00304%6 904050 “WOR ACC 
2706 003050 000104 WORD "5 vie :D = DUMP 


2707 003052 053432 "WORD DUMP 


DOS 


MAINDEC-11-DZOXI-8 NEW OXi1-B RESPONDER MACY11 30A(1052) O1-FEB-78 09:46 PAGE SS 
CZDXIB.Pil 30-JAN-78 14:19 BACKGROUND TELETYPE COMMAND DISPATCHER (EXECUTIVE) 
2708 003054 900105 . WORD * ;E = ENABLE DEVICE 
2709 003056 O04eee -WORD ENABLE 
2719 O00 000106 WORD “4 3F = FILL 
golk Boahes 716 WORD FILL 
eri 4 0110 WORD . ;H = HELP COMMAND 
2714 e378 Oogi1i WORD" I = INPUT 
e715 bo30° 809330 -WORD INPUT 
2716 003074 9000113 - WORD *K 7K = KILL 
e717 003076 O04eb6 WORD KILL 
2718 003100 O00lee . WORD *R ;R = RUN 
2719 003102 OO3ile WORD RUN 
e7e0 003104 000123 WORD *? ;S = STOP 
evei 003106 9003264 WORD STOP 
evee 003110 690000 WORD O ;ENO OF TABLE 
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.SBTTL BACKGROUND -- RUN COMMAND 
R = RUN COMMAND 


THE RUN COMMAND READIES THE DX AND SPECIFIED DEVICE 
BUFFERS TO BEGIN OPERATION. THE RUN COMMAND MUST 
BE EXECUTED BEFORE ANY ACTION WILL BE PERFORMED 
OVER THE Dx. 
#OXONLN,@DXCS ;IS DX ENABLED? 
CERR :YES, ERROR 
aOXCS tINITIALIZE THE DX 
aOxcs :SET GO 
#1,DEV :START CLEARING DEVICE TABLES 
PC’ CDEVST SCLEAR DEV STATUS TABLE ; 
PC’ CSPWST *RESET THE APPR &.W STATUS ENTRY FOR THE DEVICE 
SSENSE (DTAB) ;CLEAR SENSE BYTE 
SRORQ(DTAB) :CLEAR THE READ REQUEST 
SMINS(OTAB) :CLEAR THE START OF MANUAL INPUT 
DEV :INCR TO NEXT DEVICE 
DEV, MAXDEV :ARE WE DONE 
10$ :NO, DO NEXT DEVICE 
DXACT :CLEAR OX ACTIVE FLAG 
CMDCHF :CLEAR C CHAINING FLAG 
DXABFL ;CLEAR OX ABORT FLAG 
TTADOR, R1 :GET THE TUMBLE TABLE ADDRESS 
R1.TTPTR :RESET THE SOFTWARE T/T POINTER 
aTtSIZE,Re :SET UP CLEAR CONSTANT (WORD COUNTER) 
(R1)+ ‘CLEAR T/T AND DUP T/T 
:ARE WE DONE? 

20s :NO, KEEP ON CLEARING 
#1,MDEV tINtT THE DEVICE NUMBER FOR MUX 

SEL EXECUTOR ROU 


AADOR , JDXCS 


aBSYEN 
#OXENB 
EXEC 


aDxcs : SEL 
'IDXONLN, JDKCS ;E 


; AND x TINES 
-SET UP THE EXTENDED ADDRESS BITS 
CHANNEL - SET BUSY ENABLE 


NABLE THE Dx 


FOS 
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.SBTTL BACKGROUND -- STOP COMMAND 


: S = STOP DX COMMAND “ 
STOP DISBLES THE OX IMMEDIATELY, AFTER THE NEXT CHIS 
AFT ER THE NEXT DATA TRANSFER COMPLETION, OR AFTER THE 
NEXT ENDING SEQUENCE 


; THE FOLLOWING FORMATS ORE ALLOWED 
; S(C/R) -- STOP OX IMMEDIATELY 
: TCR) -- STOP Dx er TER NEXT INITIAL SELECTION SEQUENCE 
; SD(C/R) -- STOP OX AFTER NEXT DATA TRANSFER IS COMPLETED 
: SE(C/R) -- STOP Dx AF TER NEXT ENDING SEQUENCE IS RECEIVED 
: SP(C/R) -- STOP ON NEXT PARITY EROR RECEIVED FROM CHANNEL 
: STOP WAITS UNTIL THE SPECIFIED CONDITION IS MET. THEN, THE 
: DX IS DISABLED AND THE OX STATUS REGISTERS ARE 
; DUMPED ON THE CONSOLE TELETYPE. 
: UN COMMAND (R) MUST BE EXECUTED BEF ORE ANY MORE 
: ACTIONS WILL BE PERFORMED ON THE Dx 
3264 111204 STOP: MmOVvB (R2).R4 ;GET THE TYPE OF STOP INDICATED 
003266 120427 ooD0I15 CMPB RY, a¢R i IRMEDIATELY? 
3272 O0l4e2 BEQ STOPDX :YES, DO a AND PRINT REGISTERS 
003274 120427 oO00104 CMPB R4,#'D :D = AFT XT DATA TRANSFER 
003300 001413 BEQ 10 :YES, SET STOP FLAG 
003302 120427 oD0105 CMPB R4.8’E :— = AFT ER THE NEXT ENDING SEQUENCE 
003306 0014j0 BEQ 10$ ;YES, ze STOP FLAG 
003310 120427 000111 CMPB RY al :] = AFTER THE cHIS SEQUENCE 
003314 001405 BEO 10 :YES, SET STOP F 
3316 120427 000120 CMPB R4. #’P :P ='STOP ON PARITY ERROR?? 
Oo33s4 bDOL9> g030z6 ig 108 i YES) eee! Zogmat on: GIVE ERROR 
003330 110437 013066 10S: MOVB RY, DXSTPF :SET THE STOP FLAG 
: WHEN THE STOP CONDITION IS SATISIFIED, 
; "HE Ox ISR WILL ABORT ALL DX A ACTIVITY AND 
; SET G CAUSING ALL OX REGISTERS TO BE 
: BUMPED. by “STOPDX", BELOW 
: THE STOP CONDITION WILL REMAIN IN EFFECT 
; NTIL IT IS SATISIFIED OR ANOTHER REQUEST 
: SUPERCEDES 1T. 
003334 000137 002720 IMP EXEC ;RETURN TO THE EXEC 


; STOP THE DX AND PRINT THE REGISTERS 
; NOTE THE PRINT OUTS WILL BE IN OCTAL 


903340 042777 oD0100 oo7122 &SroPDx: BIC #DXENB, JDXCS ;DISAB THE DX 

003346 094737 011330 JSR PC, CRLF :STA RE AT NEW LINE 

00336¢ 904137 011472 JSR RI, MESG + BRINT "CURRENT DEVICE -- 

003360 013702 013106 MOV CDEV, Re :CONVERT AND PRINT THE CURRENT 
002364 004737 004760 JSR PC HON :DEVICE NUMBER IN HEX 

003370 012703 osoooI1s MOV #13., :PRINT THE 13 DX REGISTERS IN OCTAL 
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;STARTING POINT 
:GET THE spain? R CONTENTS 


N OC TAL 

:ARE WE 

NO DUMP. WORD 

: TES RESET THE ABORT FLAG 
ESstT THE Ox 


:AND RETURN T9 THE EEC 
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bump : 


10$: 


.SBTTL BACKGROUND ~-- DUMP COMMAND 


BUMP COMMAND 


THE DUMP COMMAND DUMPS THE SPECIFIED DATA AREA ON THE 
CONSOLE TELETYPE IN THE SPECIFIED FORMAT. 


THE FOLLQWING COMMAND SYNTAXES OFF OYE TLL E: TABLE IN CODE ¥ 


Bat x: vy Bune BUrbur BUFFER For Bewite vy In cope 


pestads. EEEEEE,x DUMP BET WEEN THE OCTAL LIMITS SIVEN 


NC 
WHERE: X = A-ASC off - gcoIc, H-HEX, O-OCTAL 
YY = THE DEVICE T ApREGS N’ HEX 


DINAC FSH ON FOR. 
oc AL PUD HEX HEX NBDE NE WORD SER TT A LINE 
FASHION FOR ASCII CAND PBcoic MODES” O6 CHARACTERS PER LINE 
JSR PC,GLIMIT -GET BUFFER LIMITS 
MOVB (R2)+,R4 T DUMP MODE AVE/0/H 
MOV BASCOAP, RS Ser a FOR ASCII DUMP 
CMPB I asc 
BEQ 198" Y S,_ ST 
MOV sEBCOMP RS ier CDrc DUMP 
Seor tO hs SRT ‘ D 

1 
MOV seexore, RS SEP" ee sf NHEX BUMP 
CMPB RY 
BEQ ios i ves. TT ONT INUE DUMP 
MOV SOC TONP, RS : SET UP FOR OCTAL DUMP 
CMPB RY, #’0 :1S IT OCTAL? 
BEO tos. :YES, CONTINUE DUMP 
IMP CERR i ILLEGAL ENTRY = -- ERROR 
MOV RS, DMPADR :SAVE ADOR ESS OF DUMP ROUTINE 
TST RO :WAS THIS A TUMBLE T ABLE DUMP” 
TUMTB : YE THE TUMBLE TABLE 
MOVB (R2)+,R4 :WwAS'A DEV # S 
CMPB 4a’! iis XT POSITION a COMMA 
BNE SO UMP GIVEN 3 
JSR PC, GDEV :GEt THE DEVICE NUMBER -- IN HEX 
COMPUTE RELOCATION CONSTANT FOR DEVICE 
CLR RY ;RELOCATION CONSTANT 
CEC R3 N 
BEG 40S :YES ” apo TO START + END ADDRESSES 
BOO #2000 , R4 O NEXT DEVICE TABLES 
ADD R4, SADDR ;ADD RELOCAT TO START ADDRESS 
ADD RY EADOR :@DD RELOCAT TO END ADDRESS 
MOV aSADOR, Re :GET WORD 
13h PC, gOMPADR ;CONVERT AND DUMP IT 


BNE 60% 
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#2 DOR 

se ABR PADDR 
70 

TCMDAB 

SOs 

EXEC 


;INCR TO NEXT WORD 
00 


: EXI 
:COMMAND ABORT? 


:NO PRINT NEXT WORD 
YES, RETURN TO EXEC 


DUMP THE DUPLICATE TUMBLE TABLE IN REVERSE SEQUENCE 


aTTSIZE72,R0 
JSADOR, Re 

PC, JOMPADR 
PctR 

10$ 
aTTSIZE-1,SAOOR ; 
#TTSIZE,SADOR 
#2, SADOR 

30 

TCMDAB 

S$ 

EXEC 


: SET UP COUNTER TO DUMP ENTIRE TUMBLE TELE 
GET STARTING ADDRESS 
- PR T THE CONTENTS 
1S PRINT COMPLE TE? 
WAIT TILL DONE 
One cK FOR WRAP AROUND 


; WRAP AROUND TO La Nad TABLE 
:DECREMENT TO NEXT ENTRY 
Hes eter pu e TABLE BEEN OUMPED” 


TO THE EXEC 
ARE’ WE TO ABORT? 


0 ABO 
NO KEEP ON DUMPING 
:YUP, BACK TO THE EXEC 


JOS 
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2907 .SBTTL BACKGROUND -- FILL COMMAND 
2303 : FILL COMMAND 
2911 : THE FILL COMMAND LOADS THE SPECIFIED BYTE 
egis : INTO THE GIVEN DATA AREA 
2914 : THE FOLLOWING SYNTAXES ARE AVAILABLE F FOR THE FILL COMMAND: __ 
291s : FI ,YY FILL FFER FOR DEVICE YY WITH xx 
egis : FOT. Xx: YY FILL OUTPUT BUFFER FOR DEVICE YY WITH xx 
1 3 
2918 : WHERE: XX IS THE FILL CHARACTER IN HEX 
e319 : vy 1S THE DEVICE ADDRESS IN HEX 
2921 003716 004737 oDSOS0 FILL: JSR PC,GLIMIT ;GET BUFFER LIMITS 
292e 003722 004737 011604 JSR PC; CHTB ;GET THE FTLL CHARCTER 
2923 003726 110337 012534 MOVB R3,FILLCH : BOVE FILL CHAR 
ees 0032732 004737 005302 JSR PC; GDEV GET THE LEO ICE ADDRESS 
eee : COMPUTE RELOCATION FOR DEVICE 
2928 003736 00S : CLR RY 
2929 003740 005303 10$: DEC R3 ; DONE? 
2930 003742 001403 BEQ 20% :YES, ADD TO START AND END ADDR 
2931 003744 066704 002000 ROD #2000, RM 
¢ 
2933 00375e 060437 013120 20$: ADD RY, SADDR :ADD RELOC CONST TO START 
2934 003756 060437 Ol3lee ADD R4’ EADOR !ADD RELOC CONST TO END ADDR 
e336 003762 013701 013120 MOV SADR, R1 
e337 : FILL BUFFER WITH SPECIFIED CAHARCTER 
2939 OO376— 113721 012534 40s: MOVB FILLCH, (R1)+ ;FILL CHARACTER 
2940 003772 6020137 O13i12e2 CMP R1, EADOR : DONE? 
2941 003776 101773 BLOS 30% NOPE, FILL NEXT CHAR 
2942 004009 900137 902720 IMP EXEC :DONE; RETURN TO EXEC 
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.SBTTL BACKGROUND -- HELP COMMAND 


THE HELP COMMANC PROVIDES THE OPERATOR WITH A SYNOPSIS OF 
COMMANDS WHICH MAY BE USED FOR OPERATING THIS SYSTEM. 


THE Se FOR THE HELP COMMAND IS: 
MOV #HELPMS,R1 ;SET UP ADDRESS OF HELP MESSAGE 
MOV #HELPLN; Re :LENGTH OF HELP MESSAGE 


START OUTPUTTING THE HELP MESSAGE UNDER OUR CONTROL 
SO THE COMMAND MAY BE ABORTED QUICKLY. 


MOVB (R1)+,RO ;GET BYTE TO OUTPUT 
CMPB PCTR, bY ‘MORE THEN FOUR CHARACTEF. IN OUTPUT BUFFER?” 
BGT 1S$ : YES, WAIT TIL DOWN A LITTLE 

JSR PC, PCHAR RINT IT ON CONSOLE 

STB TCMDAB ; HAS opERATOR INDICATED A DESIRE TO STOP? 

BNE 20S YES, ABORT HELP ME 

DEC R2 HAS EATIRE MESSAGE BEEN OUTPUTTED?? 

BNE 10% : NO, OUTPUT ANOTHER BYTE 


IMP EXEC : YES, RETURN TO THE EXECUTIVE 
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.SBTTL BACKGROUND -- ACCESS COMMAND 
ACCESS SPECIFIEC LOCATIONS AND CHANGE IF DESIRED 


THE ACCESS COMMAND IS A QUICK LOOK AND CHANGE 
ROUTINE MAINLY USED FOR PROGRAM DEBUGGING. 


BASICALLY bas Demy ACTIONS ARE PERMITTED: 
AXX -- OPEN AND PRINT SPECIFIED orm 
[XXXXXX](C/R) -- CHANGE CURR’ at 
SPECIFIED  XXXXXK I AND OPEN 
RETURN TO EXEC MODE 


JSR PC,COTB ;GET THE START ADDRESS 
TST RS :WAS A VALID RODRESS ENTERED” 
BEQ S$ ;NO, GI OPER RATOR 
BIT #1,R3 il sf 4 E 0 A oR ADDRESS” 
She CCR noe G VE ofthe t bt PEROR INDICATION 
my SRBERE EEE ob eT Tg 
CLRB :CLEAR TELE ACTIVE F 
JSR Pe, i NT AbBRESS” IN OCTAL 
a ie ethan 
MOV JSADOR, Re ;GET CONTENTS OF OBJECT LOCATION 
fet Reto EERHN SOOane TO 
JSR PC PAINT2 
I 18 TCHACT ; ACTIVE COMMAND? 
MOV #TBUF ,R2 :SET UP INPUT BUFFER ADDRESS 
M R Pc, Cote ; WAS LOCATION CHANGED? 
BNE 30S YES STORE I 
Sor Sos” * i (age® STURN TBS XEC 
CMPB R4Y, #CR :CR, GO TO NEXT eb oS ATION? 
BEG 4 ives OPEN AND PRINT NEXT LOC. 
1 Or INT CON pares OF CURRENT LOC. 
MOV R3, ISADOR +E ANGE OPEN LOCATION 
ADD He | SADR ‘OPEN NEXT LOCATION 
IMP EXEC ;RETURN TO THE EXEC 


MOS 
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.SBTTL BACKGROUND -- ENABLE DEVICE COMMAND 


; E = ENABLE DEVICE 


THE ENABLE COMMAND TURNS THE DEVICE SPECIFIED INTO AN 
ON-LINE MODE. THIS IS ONLY NECESSITATED BECAUSE A KILL 
COMMAND WAS PERFORMED ON THE DEVICE IN QUESTION. 


THE om .* COMMAND HAS THE FOLLOWING ee 
EXx - ENABLE DEVICE ADDRESS X 
THE DEVICE ADDRESS (XX) “MUST BE ENTERED IN HEX 


Ww J GI WIG) LI IW) 
sfotstetetetetstetete 
OWONCT WU LWe-O 


a 


3953 p04222 004737 005302 ENABLE: JSR PC, GDEV ;GET THE DEVICE NUMBER 

3023 O04226 004737 010256 JSR PC CDEVST THE EVICE STATUS TABLE 
3024 O04e32 010005 MOV DEV .R ; COMPUTE’ PAOOR SS OF THE SPW TABLE ENTRY 
3025 004234 063705 013110 ADC DEVCON, RS : COMPENSATE FOR OFFSET DE.ICE ADDRESS 

3026 OO04240 O60S0S ADD S 

3027 OO4e42 063705 013114 ADD S1SPu RS 

3028 OO4S46 013715 013116 MOV STOFF, (RS) ;ENABLE THE DEVICE NUMBER 

Hes Ghee Geos Boots ete Segerstaes” 

3031 OO04262 000137 002720 IMP Exe ;RETURN TO THE EXEC 


Ts 
—y 


004266 
004e7e 
004276 
004304 
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-SBTTL BACKGROUND -- KILL DEVICE COMMAND 
K = KILL A DEVICE 


THE KILL COMMAND DISABLES THE precise DEVICE SOME Te FROM 
PERFORMING TRANSFERS OVER THE DX. IT PUTS Mo gs IED 
DEVICE ADORESS INTO AN OFF- “+ NE STATE. AN E a RS MMAND 
MUST BE ISSUED BEFORE DATA TRANSFERS ow BE ‘PE oRMED WITH 
THE DX FOR THE SPECIFIED DEVICE ADDRES 


THE am, _~ HAS THE FOLLOWING oe 
-- KILL DEVICE ADDRESS xX 
THE DEVICE ADDRESS OOO) MUST BE ENTERED IN HEX 


ISR PC, GDEV ;GET THE DEVICE NUMBER 

JSR PC; CDEVST 

MOVB #1) SONLF (DTAB) 

MOV DEY. RS OMPUTE THE ADDRESS OF THE SPW TABLE 

ADD DEVCON, RS : EOMPONSATE FOR OFFSET DEVICE ADDRESS 

ADD STSPW,RS 

MOV #UCHK: (RS) ;MAKE THE DEVICE OFF-LINE SEND UNIT CHECK 
KILLEX: JMP EXEC :RETURN TO THE EXEC 


Oxi i> RESPONDER 
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.SBTTL BACKGROUND -- INPUT DISPLAY DATA COMMAND 
I = INPUT 
INPUT COMMAND IS USED TO ENTER DATA ONTO A 2260 
SC EEN vo THEN SENO IT T "THE 360 VIA THE READ MANUAL INPUT 


THE INPUT COMMAND ws THE FOLL OUTING SYNTA 


WWWWWWWWW 
ee ae te 
OBBVeRLoNe-o 


IXx,DDD....0D0 -- SEND DATA DDD 76 DEVICE xx 
HE DEVICE SS (XX) MUST BE ENTERED IN HEX 
004330 012532 STB TSTTYP LEGAL ON FR END TEST 
004334 BNE 16S ceria -- GIV AN ERROR 
004336 005302 ISR PC, GDEV THE 16a 
004342 000054 CMPS RY’ a’, NEXT Man MUST 6 BE A -OMMA 
Bou336 BEQ 20$ it Hapen 
004 003026 IMP CERR ie NP EUND GIVE INDICATION [ 
004354 010230 JSR ‘ery UP THE VICES STATUS TABLE POINTERS 
004360 000004 cre SCURS(BTAB), sorsPoze4 We 8 A ENC OF THE BUFFER? 
004 ai 032763 000001 of9004 BIT #1, SCURS(DTAB) Saar Ty ON RU EVEN 8 N BYTE ADDRESS 
eased ONE : 
ae cooo04 INC CURS (OTAB) NCR on” 10 BYTE OADRESS 
Gow4os 016305 000019 30S: MOV SOUT TAB), RS ; COMPUT STARTING ADDRESS 
10 066308 000004 ADD SCUR TAB), RS 
004414 piez 000112 MOvVB is TART CHARACTER TO BUFFER 
0044 10563 o00020 aes mov tOTaB) Ince START OF DATA LOCATION 
Oo4N30 Geb 327 000004 000735 ’ cnr oa O TAB), eo1sP je He 3 af THE “ENO OF BUFFER 
004440 tice MOVB i BS 4 RY HES af NEXT InpurTeD Cn CHARACTER 
004442 177600 BIC 177600, RY ; SAVE ITs 
oows4—e 020427 O00015 RY, BCR :END 7 
oo44Se 001415 BEQ YES, SET UP TO EXIT 
004454 O20427 oD0040 CMP RY, #SPACE AN” CHARACTER. a CONVERTED? 
CO4460 002410 BLT 60% iO. MUST BE BETWEEN 40 - 137 
004462 O20427 000137 CMP RY. a'e 
OO4466 003005 BGT $ ;NO T BE BETWEEN 40 - 137 
004470 162704 000040 SUB #SPAC >SCALE FOR INDEXI 
116425 012354 SOs: MOVB ATOE BURY), (RS)+:CONVERT CHARACATER AND MOVE TO DISPLAY BUFFER 

gowe0e Boeo8s ws: fr ae GELeGse EeaeecreR’ = FREEF as" Seace 
004504 000772 “ BR eds 

; SET UP TQ EXIT 

; ET EOM INDICATOR 

; QUEUE READ MANUAL INPUT REQUEST 
OO4¥SO& + 112715 o001S2 >0S: MOVB #E0M, (RS) ;SET EOM INDICATOR 
004Si2 005263 94000004 INC SCURS (DTAB) i INCREMENT CURSOR POINTER 
004516 105263 000017 INCB SRORQ(DTAB) QUEUE READ REQUEST 

; SEE IF THE DX IS amaathiin ACTIVE 
po4s22 105737 013070 : TSTB DXACT ;1S DX ACTIVE? 


CO6 
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At oe BS antie 14:19 BACKGRO ao A ith BEAL ay ontk CBr NO ake RES 
3111 O04S26 901402 BEO 80s :NO, START ASYNCHRONOUS PROCESSING TO SEND ATTENTION 
31s 004S30 000137 002720 IMP EXEC :YES, ATTENTION WILL BE TAKEN CARE OF BY Ox 
114 ; DX IS NOT ACTIVE 
311s ; CREATE PHONY INTERRUPT TO ALLOW DX TO ACT ON ATTENTION 
3ii8 004534 013746 17777 60$: MOV PSW, -(SP) ;PSW TO PUSH STACK 
3118 OG4YS¥YO 012746 902720 MOV wEXEC,-(SP) :RETURN ADDRESS TO PUSH STACK 
3119 OO4S44 012737 O0O34O0 177776 MOV #340, Psw INHIBIT INTERUPTS 
3120 oo4sse O10 MOV RO, -(SP) :SET UP PUSH STACK FOR FAKE INTERRUPT 
1 4554 O10146 MOV R1,-(5P) 
1 1 MOV Re’ -(5P) 
1 10346 MOV R3,-(5P) 
3124 oO4S6e 010446 MOV RY, -(SP) 
3125 OO4S64 O10S546 MOV RS’ -(SP) 
3126 OO4S66 000137 oDESsS4 IMP D¥EXEC :START PROCESSING THE AT” _NTION 
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ler .SBTTL BACKGROUND SUBROUTINES -- PRINT FORMATTING 
3128 


3129 ; DUMP WORD IN EBCD1~ ON TTY 


CALLING SEQUENCE 
TTT? 2 CON ete WORD TO BE PRINTED 


DUMP WORD IN OCTAL ON TTY 
CALLING SEQUENCE 

Bp R2 CONTAINS WORD TO BE PRINTED 

ISR PC OCTDMP OR ODMP 

sees OE RETURN 

OCTDMP PERFORMS A CR/LF BEFORE PRINTING OCTAL DATA 
NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 


CTOMP: JSR PC,CRLF ;GIVE A CRLF 


fWM-O0ON 


i : 
3133 ; JSR PC,E 
313: aa errr ETURN 
1 3 
3137 : REGISTERS 2 + 3 ARE DESTROYED BY THIS SUBROUTINE 
1 ° 
1 72 010237 oO1 EBCDMP: MOV R2, WK ;SAVE WORD TO BE PRINTED 
aig Bier 119785 BISBEE nove RRS gg —«aEY LO BYTE 
4 a 
14 0&6 i16337 011754 013056 MOV FBCoTR (AS) Wk ;CONVERT EBCDIC TO ASCII 
hug Bese os 1 {$333 Bi 4e83 MOV WKI,R :£on HI BYTE AND CONVERT 
3144 004620 042703 177400 BIC #177400, R3 3 
3145 po46e4 116337 011754 013057 MOVB EBCDTB(R3),.WK1 ;CONVERT CHAR TO ASCII 
3146 4632 013702 013056 MOV Wk, Re 
3147 ; FALL THROUGH TO ASCII PRINT ROUTINE 
3145 
31S0 
3151 ; DUMP WORD IN ASCII ON TTY 
3153 : CALLING SEQUENCE 
3154 ES a apepernene R2 CONTAINS WORD TO BE PRINTED 
3155 : ISR PC, ASCOMP 
3156 fy ee E TURN 
3126 ; 
Ste : NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 
161 OO4% 05737 013055 ASCDOMP: TSTB LINECT ;NEW LINE? 
3iB3 tard 1005 BNE 10$ ;NO 
3163 004644 004737 011330 JSR PC, CRLF :YES, PRINT CR/LF 
3164 OO046S0 112737 000036 013055 MOVE #30. ,LINECT :60 CHARACTERS PER LINE 
3165 004656 105337 9013055 10S: DECB LINECT :DECR LINE COUNTER 
3166 OO04%662 004737 011346 JSR PC, PRINT2 sPRINT 2 CHARS 
316 OO46EE 000207 RTS PC ?RETURN TO CALLER 
316 
317 
317 
317 
217 
317 
2175 
317 
317 
317 
317 
318 
318 
318 
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TINES -- PRINT FORMATTING 
MOV RO,-(SP) :SAVE IMPORTANT REGISTERS 
MOV Re’ -(SP) 
MOV RY! -(5P° 
MOV #6°R4 ; EXTRACT ocraL. DIGITS 
CLR 0 :CLEAR T KING REGISTER 
ROL Re :MOVE HI eR BIT TO C-BIT 
ROL ;GET THE REMAINING BIT STILL IN Lit 
BIC #177770,R0 ONLY 3 LOW ORDER BITS 
ADD #°0,RO :MAKE ASC 
JSR PC, PCHAR -PRINT IT ON THE T 
ROL Re ;ROTATE tHE NEXT OCTAL away “INTO POSITION 
ROL Re 
ROL Re 
MOV R2,RO ;DATA TO WORKING REGISTER 
DEC RY ; ARE WE DONE? 
BNE 10% NO, PRINT ANOTHER CHARAC .ER 
MOV (SP)+,R4 RESTORE USED REGISTERS 
MOV (SP)+,Re 
MOV (5P)+°RO 
RTS PC :RETURN TO THE CALLER 
DUMP WORD IN HEX ON THE TTY 
CALLING SEQUENCE 
Tipe Re CONTAINS THE WORD TO BE PRINT“D 
ISR PC HEXDMP OR HDMP 
cone RETURN 
HEXDMP PERFORMS A CRLF BEFORE OUTPUTTING THE DATA 
NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 
JSR PC, CRLF ;D0 A CRLF 
MOV RO; -(SP) :SAVE THE WORKING REGISTERS 
MOV Re: -( SP? 
MOV RY, -( SP) 
MOV #4 RY 4 CHARACTERS PER WOR D XM 
ROL Re ROTATE HIGH ORDER 4 BITS TO LOW ORDER 4 BITS 
ROL Re 
ROL Re 
ROL Re 
MOV Re, RO ;TQ_ WORKING REG 
ROL ET THE LINK BIT TOO 
BIC #177760,RO : ONLY LOW ORDER 4 B8iTS 
ADD #’°0,RO AKE ASCII IF NUMBER 
CMP a. &’9 + OHOUL LO IT BE A-F? 
BLE 20$ No SHIP a 
ADD #7,RO Yes, MAKE A 
JSR PC’ PCHAR ER TNT MME HEX CHARACTER 
DEC RY ;ARE WE BONE? 
BNE Os 'NO, CONVERT AND PRINT NEXT CHARCATER 
MOV (SP)+,R4 YES, RESTORE REGISTERS AND EXIT 
MOV (SP)+'Re 
MOV (SP)+°RO 


MAI 
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CoORNIB.F iI 30-JAN-"8 14:19 BACKGROUND SUBROUTINES -- PRINT FORMATTING 
3239 o00S04%6 906207 RTS PC 


;RETURN TO THE CALLEF 


C-11-DZ0Dx -B RESPONDER 30A(1 2) O1-FE8-7 e- SES 9071 
reaNt “pti eae * San ee ete pee BACKG GROUND” oy UTI bm oFE Boe PFE TED BurFeR- LIMITS AND DEVICE PODRESSES 2% 383} 
“ BACKGROUND SUBROUTI -- COMPUT CIFIED BUFFER LIMITS @NC CEVICE AOC 
ei ; te fA -- SET UP BUFFER urTaNge FOR fete Eom MEDS “ 
- 3 
3243 : CALLING SEQ 
3244 ipo Re = AD S OF FIRST PARAMETER 
3e45 : ISR PC,GLIM 
3246 Mae Fe RETURN IF NO ERRORS DETECTED IN BUFFER LIMIT SYNTAX 
3247 : IF AN ERR ROR IS 70 CER CONTROL WILL BE 
4 : SRE YDen “CERR* TO ABORT THE TELETYPE COMMAND. 
34 : UPON GOod 
334 S NeXT CHAR if 1 TON IN COMMAND STRING 
: Rese = be eA6 ADOR pes be", bneeS 
3533 : EADDR = END ADDR TO BE BUMPED 
3285 : REGISTERS RS, RY, RB WILL BE DESTROYED. 
3287 ; IF AN ERROR IS FOUND CONTROL IS PASSED TO CERR 
3259 oososO cOso00 ALIMIT: CLR RO ;RESET BUFFER TYPE 
3260 o0S0S2 004737 O11540 ISR PC,COTB GET FIR ST PARAMETER wa 
3261 005056 005705 TST RS HY AS AN OCTAL NUMBER ENTERED 
3262 001014 BNE GLOCT ives, 70Gt AL BaRANe 
3263 005062 120427 o00124 CMPB R4.a'T : ABLE 
3264 001425 BEQ GLATT YES, "ee ar 4 T/T LIMITS 
3265 005070 120427 900111 CMPB R4, a! 312° INPUT “4. 
32 0050 001436 BEO GLAIN YES, SET UP INPUT BUFFER LIMITS 
3267 005076 120427 000117 CMPB R4,8'0 0 s OUTPUT BUFFER 
3268 005102 0601453 BEG GLMOT !YES, SET UP OUTPUT BUFFER LIMITS 
3670 : ERROR DETECTED - POP OFF RETURN ADDR AND GIVE ERROR 
32e72 OOSi04% 012601 BLERR: MOV (SP)+,R1 
3273 005106 000137 003026 IMP CERR 
3274 
3275 
3276 , 
a502 : OCTAL LIMITS SPECIFIED 
3279 005112 010337 013120 ELOCT: MOV R3, SADOR : SAVE START ADDR 
3280 005116 1204e7 O00054 CMPB RY‘ a’, CHECK FOR COMMA (,) 
3281 O00Si22 001370 BNE LERR 
3282 005124 004737 011540 ISR PC, COTB ;GET END ADDR 
3283 005130 005705 TST RS :WAS SECOND PARAM GIVEN” 
3284 005132 001764 BEQ GLERR :N RROR 
3285 005134 010337 013122 MOV R3, EADDR :SAYE END ADDR 
3286 905140 900454 BR GLEx :PREPARE TO EXIT 
3288 
3289 , 
3530 ; SET UP LIMITS OF TUMBLE TABLE 
3292 O0S142 112204 ELMTT: MOVB (R2)+,R4 
3543 boeica doizes COOLEY er’ TUPEGAL ENTRY 
® vv 
3295 005:S2 013737 013060 013120 MOV TTPTR, SADOR 
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PAGE 72 
BACKGROUND SUBROUTINES -- COMPUTE SPECIFIED BUFFER LIMITS AND DEVICE AODRPESSES 


ALMIN: 


ADD aTTSIZE-2,SADDR ;COMPUTE ADDRESS OF APPR DUPLICATE TT ENTRY 
Aye RO : ANQIS BT OuMe TUMBLE TABLE 
R GLEX1 3 is) 


SET UP LIMIiS FOR INPUT BUFFER OF DEVICE 0 


MOVB (RE)+,R4 

cree RY ah ‘eee BE fM 

MOV SLERR. RY Abb Samer OF PbeV O STATUS TABLE 

a SINBF (RY) SADOR 

B00 soyrseel.e EADDR ;DISPLAY SIZE + ROOM FOR LINE ADDRESS 


SET UP LIMITS FOR OUTPUT BUFFER OF DEVICE O 
MOV (R2)+ RM 


CMP RY. a't 1 BE OF 
ROY mere Atte V0 STATUS TABL 
mov sourecRs) SADOR i GET GpER aan AAD ENDING BBORESSESS OF SPECIFIED uF 


neve api sPsg-1, EAOOR Oe ey ORB URUEHERACTER AND UPDATE POINTER 


INSURE ENTRY PROPERLY DELIMITED AND RETURN TO CALLER 


CMPB R48’, :CHECK F 
BNE GLERR ENG EY NOt PROPERLY DELIMITED (ERROR) 
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BACKGROUND SUBROUTINES -- COMPUTE SPECIFIED BUFFER LIMITS AND DEVICE 
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MACY11 30A(1052) O1-FEB- 09: 


AODRESSES 
GDEV -- GET THE THE DEVICE NUMBER FROM THE HEX INPUT 
: CALLING SEQUENCE 
: ag Re = = _fOORESS OF DEVICE ADDRESS IN HEX 
5. > eaindiiiae OF aol” NO ERRORS DETECTED 
: Der ECTED, COMMAND IS ABORTED BY GOING 
: UPON val 19 RETUR 
: R3 AND Bev (RO) WILL CONTAIN THE DEVICE ADDRESS 
01 NOTATION USED @Y SYSTEM 
R2 WILL PCINT TO THE “NEXT CHARACTER FOLLOWING DEVICE ADORESS 


10$: 


SxISR: 


JSR PC, CHTB ;CONVERT THE HEX TO BINARY 
Sus SotV, R3 :=STARTING ADDRESS 
BMI :ERROR ON INP’ 
INC ass MAK BETWEEN, AND 8 
CMPB R3, MAXDEV 1S DEVICE RUMBER TOO BIG? 
BHI 10% :YES, GIVE ERROR 
mov RS, , DEV :SET UP THE DEVICE NUMBER 
IMP CERR UT PARAM ERROR 
.SBTTL ODX11-B ISR INTERRUPT REQUEST LOGIC AND TUMBLE TABLE DECODE LOGIC) 
Ox11-B8 ISR 
DX11 ISR AND RELATED SUBROUTINE REGISTER USAGE 
RO DEV DEVICE NUMBER 
Ri UN ASSIGNED 
Re UNASSIGNED 
R3 DTAB ADDRESS OF CURRENT DEVICE TABLE 
RY TT1 TUMBLE TABLE ENTRY 
RS TT2 TUMBLE TABLE ENTRY 5 


THE ABOVE ESTs Er DESIGNATIONS REPRESENT WHAT USUALLY WILL 
BE CONTAINED IN A REGISTER DURING DX ISR PROCESSING. HOWEVER, 
ciabtete oe DICTATE REGISTERS MAY BE USED FOR DIFFERENT 


MOV RO,-(SP) ;SAVE HARDWARE REGISTERS 

MOV R1,-(SP) 

MOV Re, -(SP) 

MOV R3,-(SP) 

MOV RY: -(SP) 

MOV RS‘ -(SP) 

mov TIBTR.Re ;CHECK FOR ZERO T/T ENTRY UPON INTERRUPT 

BNE LOOP ;NON-ZERO -- WERE OK 

NOTE -- AN INTERRUPT OCCURRED WITHOUT A TUMBLE TABLE 
ENTRY, THE ASSUMPTION IS THEN MADE THAT THE TUMBLE TABLE 
ENTRY HAS ALREADY BEEN PROCESSED 

IMP DXEXIT 
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MAC 46 PAGE 7 
1-B ISR (INTERRUPT REQUEST LOGIC AND TUMBLE TALE DECODE LOGIC: 


PROCESS pS TABLE ENTRIES 
FOR_CON\'IENC 


E iL Purr tet IS BEING PERFORMED 
AT THE dL aa he IT IS SUGGESTED THAT IN 
NORMAL _PROCESS NVIRONMENTS THIS PROCESSING 
BE DISTRIBUTED 15 LESS PRIVILEOGED PRIORITY LEVELS 
Ch AS THE FORK LEVEL IN RSX11-M. 
THE INTERRUPT SERVICE L yeb PROCESSING REQUIRED 
BY THE DX11-8 IS TO RELEIVE THE INTERRUPT (DONE BIT 
IN OXCS) AND SCHEDULE A _ REQUEST FOR PROCESSIN 
AT ANOTHER LEVEL. THE LEVEL SCHEDULED TO PERFORM 
PROCESSING SHOULD BE HIGH ENOUGH 
TO PROTECT AGAINST TUMBLE TABLE OVERFLOW 
THE TUMBLE TABLE ENTRIES ARE PROCESSED SEQUENTIAL.Y FROM THE 
IRCULAR BUFFER FILLED BY THE DX. AS EACH ENTRY IS RETRIEVED 
FROM THE T LE TABLE IT IS ZEROED. IT IS THIS MECHANISM 
T ALLOWS PR R TO DISCERN WHEN ALL ENTRIES HAVE 
BEEN PROCESSED. WHEN ALL ENTRIES HAVE BEEN 
RETRIEVED FROM THE TUMBLE TABLE THEN THE NEXT ACTION 
IS PERFORMED TO THE DX. THE DX11-B NEVER ENTERS A ZERO 
IN TUMBLE TABLE ENTRY 1. 
MOV TTPTR,Re ;GET T/T PTR 
pe (Re) ; ANY ENTRIES LEFT IN T/T? 


NE 10$ 
JMP DXEXEC ;NO, EXECUTE NEXT DX COMMAND 


TUMBLE TABLE id AVAILABLE FOR tga 3 7? Le 
RESET THE DONE BIT (RELIEVE INTERR 


COPY TUMBLE TABLE ENTRY TO_DU UPLICATE "TUMBLE TABLE ‘FOR SYSTEM TESTS PUFP 


RESET TUMBLE TABLE ENTRY (2 WO 


BIC #DONE , IDXCS ;CLEAR DONE 

MOV R2,R3° :SET UP PTR TO DUP T/T 

ADD aTtSIZE,R3 

MOV (R2), (R3)+ ;SAVE T/T ENTRY #1 

MOV (R2)'TT1 

CLR (Re)+ ;CLEAR T/T ENTRY #1 

MOV (Re), (R3)+ :SAVE T/T ENTRY #2 

MOV (Re); TT2 

CLR (R2)+ ;CLEAR T/T ENTRY #2 

CHECK FOR POINTER WRAP AROUND 

BIT aTTSIZE-1,Re2 87 END OF BUFFER? 
NOTE -- POWER OF 2 BOUNDRY 

BNE 20% 

MOV TTADDR, Re YES RESET PTR 

MOV R2, TTPTR :SAVE T/T PTR 


START PROCESSING TUMBLE ENTRY ENTRY 
SAVE DEVICE ADDRESS 
CHECK FOR SYSTEM RESET 
VALIDATE DEVICE ADDRESS 
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1-8 ISR (INTERRUPT REQUEST LOGIC AND TUMBLE TABLE DECODE LOGIC) 


NOTE -- IF SysTen RESET OCCURRED, THERE 1s NO GUARANTEE 
T THE DEVICE ADDRESS WILL BE VALID. 


MOV ;GET DEV @ 
BIC 8155080 DEV 

MOV DEV, CDEY ;SAVE CURRENT DEVICE NUMBER 

BIC #DONE , JDXCS :CLEAR DONE 

BIT usVoRer, TTl :SYSTEM RESET? 

BNE i YES, PERF ORM SYSTEM RESET FUNCTION 
Sus SDEV, DEV :GET IN O-7 RANGE - IF VALID 

BMI 30$ : INVALID DEVICE NUMBER 

CMPB DEV, MAXDEV :VALID DEVICE? 

BLO 40$ :YES, NOT TOO BIG 


INVALID DEVICE ADDRESS - BITCH 


4 INVALID DEVICE ADDRESS WiLL, GENERALLY INDICATE 
A PROBLEM IN THE CONFIGURATION OF DX DEVICE 

ADDRESSES. BASICALLY THE OX HAS BEEN STRAPPED 

TO HANDLE DEVICE ADDRESSES em OVERLAP WITH 

OTHER DEVICES ON THE CHANNEL 


JSR R1, INMES 


;PRINT “INVALID DEVICE” 
gro TLCMES 


;ABORT DX11 
COMPUTE ADDRESS OF SPECIFIED DEVICES STATUS TABLE 
INC DEV ;MAKE DEVICE NUMBER 1 -8 
JSR PC, SUDEV :SET UP ADDR OF DEV STAT TABLE 


BAINDECE LL -OZO 53 ~F NEG O511ge RESPONDER, sg ron CLATERR YPRodG rect ah’ timeLe fable DECoDE Lostc) 263 88 


375 DECODE DX TUMBLE TABLE STATUS ENTRY 
He : THE FOL OWING PROCESS INDICATES THE ORDER IN WHICH 
78 ; THE T — TABLE STA Tus NTRY SHOULD BE DECOD DED 
3479 : THIS DRBER 1S IMPORTANT AND SHOULD BE ADHERED 
3180 : TO FOR MOST EMULATIONS. 
3482 005530 032704 o20000 tSELRST:BIT sSELRST,TT1 ;SELECTIVE RESET? 
3483 005534 001402 BEQ TINDSC :NO, TEST INTERFACE DISC. 
3484 005536 000137 005776 IMP PSELRT : YES RF SELECTIVE RESET 
sige Geeve feraas 00° eee ee a Ae ms 
3487 O0055S0 000137 oD60e6 IMP PINOSC ;YES, PERFORM INTER DISC 
34 O0s554 e704 040000 TNXM: BIT anxn TT “ExT TENT MEMORY ERROR? 
34gt Bosses 032704 ap eta TESEND: BIT SP SEND, TTI at ae RctepreD aps gare hem 
3433 ODSE74 Obl? O6114 oie PESEND v Kone STATUS RECEP? 
3494 005600 Q3e704 100000 TPARER: BIT APARER, TTL ines. PERE ORM ERR ROR oct ce 
S436 eater 4y Kir PPARER Mee Pe Scess Pan 
Esti BREPOS B32784 00 TCHIS: arr aCHI Aas itbB. C L wpe Ty A SELECTION SEQ? 
395 1 006274 bid P Hie iNOg cPROCESS SELECTION Ce GuEN Re 
00 24 03 704 000040 TCHEND: BIT @CHEND, TT D1 CHEN HANNEL NO occ UR ei 
3263 Bb 006456 biz ; 4 N Mee + E END 
032704 oo0020 TCUEND: #CUEND, TT1 jDID a CONTROL UNIT END 0 


3503 005636 4 BIT TR A TACK STATUS 
325¢ BREEGS BBAPS9 ooeuue sid BOC END ee EROCESS CONTROL Ssine 05 psi 
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DX11-B ISR (TUMBLE TABLE ENTRY PROCESSING LOGIC) 


PSYSRT: 
10$: 


208: 


“Wes ee ee ee ee ee ee 


ASELRT: 


oe ee eres es es ee 


.SBTTL OX11-B ISR (TUMBLE TABLE ENTRY PROCESSING LOGIC) 


SYSTEM RESET OCCURRED FROM 360 
CLEAR AL I £. TATUS TABLES AND RESPECTIVE 


RESET DX ACTIVE FLAGS AND COMMAND CHAIN FLAG 


MOV #1,DEV ;START AT FIRST DEVICE 
3eR Pe’ COPWET : CLEAR T See ef aTus LORD UPON SYSTEM RESET 
CLRB ESENSE CB TAB) CL ER SENSE By YE 


CLRB SROR@(OTAB) ;CLEAR THE READ REQUEST 
CLR ie (BTS? RESET AR T MANUAL INPUT ADDRESS 
(OTAB) ; 


TT 
CLEAR THE STATUS REGIS 


roy SAVTBCOTAE =F TU (Gaga, Teheelet eR BEEBh oy 


Move #EBCDSP, RY + ASSUME 2848 D DIAGNOSTIC T 
TSTB 3s TST TYP :WHAT TYPE OF TEST? 

BEQ 20S ; IF F cade USE EBCDIC SPACE 

MOVB  FILLCH,RY : FRIEND tEST -- USE CURRENT FILL CHARACTER 
MOVB = RY, (R1) + ;USE THE FILL CHARACTER 

DEC Re [ARE WE DONE? 

BNE 20S jNO, LOOP TILL DONE 

INC DEV >TO’ NEXT DEVICE 

CMPB  Es«éDEV,, MAXDEV [ARE WE DONE? 

BLE 10$ :NO CLEAR NEXT DEV STAT TABLE 

CLRB DXACT i CLEAR X ACTIVE FLAG 

CLRB  CMOCHF : CLEAR RS MRAND CHAINING FLAG 

BIC SCUBUSY,3DXCS RESET CU BUSY FLAG 

IMP LOOP :PROCESS NEXT T/T ENTRY 


CHANNEL ISSUED A SELECTIVE RESET 
ESET THE DEVICE STATUS TABLE FOR THAT DEVICE + SENSE 
NOTE: THE SEL RESET IS ISSUED AGAINST THE CURRENT 
ACTIVE DEVICE 
ISR Pc. CDEvST ; CLEAR DEVICE STATUS TABLE 
JSR CSPWST :RESET SPW STATUS RESPONSE 
CLRB SSENSE (BTA) :CLEAR SENSE BYTE 
CLRB DXA :CLEAR DX ACTIVE FLAG 
CLRB O OCHF :CLEAR COMMAND CHAIN FLAG 
IMP LOOP 
INTERFACE DISCONNECT WAS ISSUED FROM THE 360 
HIS IS DIRECTED TO A SPECIFIC DEVICE AND IS UNDER 
50 PROGRAM CONTRO 
IF THE DEVICE WAS ACTIVE 
ITS DEVICE STATUS TABLE WILL BE CLEARED 
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OX11-B ISR (TUMBLE TABLE ENTRY PROCESSING. LOGIC) 


HM SET IN STATUS BYTE 


AND C 
IF THE DEVICE IS mg ROT & VE COMMAND WILL BE IGNORED 


PC, CSPWST s¢ EAR T ry Sr gtus RESPONSE 


ISR 
STs SCMO(DTAB) DEVIC 

BEQ he IGN 

JSR LDEVST :CLEAR T DEVICE STATUS TABLE 
MOV Beebe SCMD(DTAB): DEV END + CHAN END 

CMPB DEV, OXACT :IS DEVICE USING DX NOW? 

BNE OS 3NO 

CLRB DXACT :YES, RELEASE D 

CMPB DEV, CMDCHF :DOES DEVICE HRVE CMO CHAIN SPEC? 
BNE 2 :NO T NEXT T/T 

CLRB CMDCHF YES. CLEAR FLAG 

IMP LOOP GET NEXT T/T ENTRY 


4 eatin, tig MEMORY CONDITION OCCURRED 
THIS WILL USUALLY TRAP OUT FIRST 


JSR R1, INMES ;PRINT “NON EX MEM™ 
. WORD NXAMSG 
IMP ;ABORT DX AND RETURN TO EXEC 


THE LAST STOrUs sent TO THE 360 WAS ACCEPTED, CLEAR Dx 
OP WAS A WRITE PERFORM THE DISPLAY CONTROL ROUTINE 


IF LAST 
JSR PC, CSPWST ;RESET THE SPW STATUS BYTE 

TS18 SLEMD(DTAB) jDOES L AST COMMAND REQUIRE 2260 DISPLAY EMULATION? 
ISR SCTL ‘YES, FORMAT THE DISPLAY 

che SeAD(OTAR 11 | MAS” ATTN ACCEPTED? 

MOVB #2, SRORQ(DTAB) ye, COND ICATE 360 ACCEPTANCE 

CLRB SLOMD(DTAB) 

CLRB Dxact pp X ACTIVE F 

ISR C, CDEVST :CLEAR THE DEVICE LOE TUS TABLE 

BIT #CMDCHN, TT1 :WAS COMMAND CHAINING SPECIFIED? 

BEQ 30S NO 

MOVB DEV CHOCHE :YES, SAVE THE DEVICE NUMBER 

CMPB DXSTPF, « :WAS STOP ON END SEQ SPEC?(SE) 

BEQ STP *YES, DISABLE THE DX 

BIT #ISSREJ,TT1 ;WAS AN ISS REJ DETECTED? 

BEQ 50s :NO, EXIT 


INIT SELECTION SEQUENCE WAS REJECTED BY DX (FAST CU BUSY SEQUENCE) 
IF FREIND TEST MODE -- QUEUE CONTROL UNIT END 
ON UNIT COMPLETING TRANSFE 

IF 2848 DIAGNOSTIC TEST MODE -- QUEUE CONTROL UNIT EMD 
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OX11-B ISR (TUMBLE +ABLe ENTRY PROCESSING LOGIC) 


ot ee we ee ee ee ee oe 


“Urs oe ee ee ee ee ee 


bouts: 


103: 


: JSR R1, INMES 
PARME 


RESPONSE ON LOW ORDER CHANNEL ADDRESS 


HE 2646 DEVICE EMULATION IS EXPECTED TO ISSUE 
i MITE ON THE LOW ORDER DEVICE ADDRESS 


C 
pe'o 3 OTHER 5e5/ DEVICES ARE EXPECTED TO_ISSUE 
ONTROL UNIT END ON THE DEVICE COMPLETING THE OPERATION. 


gage 

aS 
wD 

ei 


TSTB I TTYP ;PROCESS _SEPARETLY IF FR FRIEND. 

BNE jERIE UNIT 

HOV ul. SET UP TO SEND CUE ON Cow BORDER CONTROLLER ADOR 
MOvVB sot CMD (DTAB) ; ‘ QUEUE CONTROL UNIT END 

IMP :LOOP BACK AND PROCESS NEXT TUMBLE TABLE ENTRY 


PARITY ERROR WAS DETECTED 
;PRINT “PARITY ERROR™ 


. S 
CMPB OXSTPF,#’P 3ST on PARITY ERROR’? 


BEQ STPDX DISABLE THE DX 
BISB BUICHK, sstaTipTags. Eee UNIT CHECK IN STATUS WORD 
IMP TCHIS’ COTE NUE WITH TUMBLE TABLE INTERROGATION 


CHANNEL pe tteTeS SEL ARS SEQUENCE 
pas. FAR THE DEVICE NUMBER HAS BEEN VALIDATED 
COMMAND CHECKED BY THE DX 
TT2 CONTAINS THE COMMAND TO BE EXECUTED 


JSR PC,CSPWST ; RESET pe. SPW STATUS BY 


TE 
[ON NEXT CHANNEL INITIATED SELECTION SEQUENCE 

CMPB DXSTPF,#’I :WAS STOP ON ISS SPECIFIED(SI) 
BEQ POX :YES, DISABLE Dx 
BIT SCMOREJ,TT1 :WAS COMMAND REJECTED BY Dx? 
SNE 208 :YES, COMMAND REJECTED BY THE Dx 
VALID COMMAND, SET UP TO PROCESS IT 
CLRB TT2 ; RESET DEVICE ADDRESS BITS 
SWAB TTe :C TOL BYTE 
TSTB TT2 : TEST 170 oc ? 
BEO Sos :YES, IGNORE 
CMPB TT2, sNoP :WAS COMMAND A NOP? 
BEO Sos :YES, IGNORE IT 
CMP TT2,812 :1S THIS A Vat 1D COMMAND? 
BLE 10$ i ES, QUEUE TO abe EXECUTED 
JSR R1, INMES :NO -- REPORT AN ILLEGAL COMMAND RECIEVED FROM THE DX 
WORD INVLDC 


=] ;AND ABORT THE PROGRAM 
MOVB TT2,SCMD(DTAB) ;QUEUE COMMAND TO BE PROCESSED 
B Sos :EXIT + PROCESS NEXT T/T ENTRY 


CO? 
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CZDxIB.F11 30-JAN-78 14:19 Dx11-B ISR (TUMBLE TABLE ENTRY PROCESSING LOGIC) S&€q 008d 
3674 F 
3025 ; COMMAND WAS REJECTED, DETERMINE WHY 
3 "63 oO00016 sos: TSTB ONLF (DTAB) 31 C 
3678 GOP SPE Agcbs bo 33 i HB,08 ¥EE F earl Y Me ERROR 
7 H 
3680 ; DEVICE OFF-LINE -- RESPOND INTERVENTION REQUIRED SENSE CONDITION 
3682 006370 OS2763 900100 oo00ce ° BIS SINTREQ, SSENSE(DTAB) ;SET INTERVENTION REQUIRED IN SENSE BYT 
3683 376 o004ie2 BR iF IN NISH_UP CHANNEL INITIATED SELECTION PROCESS 
3684 400 032704 100000 308: BIT aPARER, TTl PARITY DETECTED? 
3685 006404 001404 BEQ 40$ ino. MUS Ee EeaL Cc 
365 : COMMAND was REJECTED BECAUSE OF A PARITY ERROR 
2088 ; SET UP BUS OUT SENSE RESPONSE 
3690 O06406 052763 of0040 oD000e ° BIS SBUSOUT,SSENSE(DTAB) ;SET BUS OUT FLAG 
3631 006414 000403 BR sos ;EXIT 
33 : INVALID RECEIVE 
3 } con Oe COMMAND RS ee? ZERse RESPONSE 
3636 006416 OS2762 O00200 oD0002 4os: BIS #SCMORJ,SSENSE(OTAB) ;SET CMD REJ FLAG 
3698 : CHANNEL INITIATED SELECTION SEQUENCE COMMON EXIT LOGIC 
299 ; IF SELECTED DEVICE HAS COMMAND CHAINING IN AFFECT -- KILL IT 
3701 O06424 120037 013074 Sos: CMPB DEV, CMDCHF ;DOES VICE HAVE COMMAND CHAINING SPECIFIED? 
3702 006430 00:i002 BNE os ob Fae XT TUMBLE TABLE ENTRY 
3703 006432 105037 013074 CLRB CMOCHF ves, “CLEAR THE COMMAND CYAINING FLAG 
3704 006436 090137 005364 60S: IMP LOOP A THE NEXT T/T ENTRY 
3706 
3707 ' 
3706 ; CONTROL UNIT END OF DATA TRANSFER WAS DETECTED 
3799 ; IF TRANSFER COMPLETE PREPARE ENDING SEQ RESP 
3715 : IF TRANSFER FRCOMPLETE INCR BUFFER ADDRESS 
35th ; DECR BYTE COUNT 
3713 O06442 105037 013070 BCUEND: CLRB DXACT ; CLEAR Ox ACTIVE FLAG 
3714 O0644€ 004737 010342 ISR PC, MUXEND :HANDLE MUX DATA TRANSFER COMPLETION 
3715 o064S2 103017 BCC PCHEX :IF SEL CHAN OR MUX D’T NOT DONE, MERELY EXIT 
3717 ; MUX DATA TRANSFER COMPLETE 
3718 ; TREAT SAME AS SEL CHANNEL DONE 
3720 ocoe4s4 404 : { 
372 05040 BR PCHENi 
3722 
3723 
3724 , 
3725 ; CHANNEL END WAS DETECTED 
768 ; PREPARE ENDING SEQUENCE RESPONSE 
3728 COBYSE 105037 013070 PCHEND: CLRB DXACT ;CLEAR DX ACTIVE F 
3723 O0646e 004737 010342 ISR PC, MUXEND :IF MUX CHANNEL HANDLE DATA TRANSFER 
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Otay PROCESSING LOGIC) 


PAGE 81 


;STOP ON ee Dioonee DONE” ‘SD: 


SIEBE scnocorae» ! S62" Rd -ePt 
sparen lnk ePhat ae eae 


NEXT A 3 TABLE ENTRY 


HE gROM SSENSE COTARS ABR, SEDRB RULE BEEP PT 


STOP DX, SOMEONE WANTS TO INVESTIGATE 


CLRB 


ABORT 


BIC 
INCB 


DXSTPF 


;CLEAR STOP FLAG 


CURRENT DX OPERATION 
UNRECOVERABLE ERROR OCCURRED 


ee oe, » SOxE8 3 7 oe ex Ro 3 Ox 


T FLAG m THE 
Dx REGISTERS wih BE PRINTED 
XIT FROM INTERR 


JMP OXEXIT UPT 
-SBTTL OX11-B ISR (SELECTOR CHANNEL COMMAND EXECUTION) 
EXECUTE NEXT COMMAND FOR THE DX 


: TSTB 


Sn 


SEX 


MOV 


CHTYPE 
SEX 
MEX 


CHANNEL TYPE O=M, 1=S 
i SELECT OR gn b "EXEC 
IPLEXER EXEC 


-- SELECTOR CHANNEL EXECUTIVE 
SEX EXECUTES COMMANDS FOR THE DX TO A SELECTOR CHANNEL 


ON A SELECTOR CHANNEL A COMMAND WILL SE COMPLETED 
vce, art MPTING RONERERUTE A COMMAND ON ANOTHER 


-DATA TR 


DATA TRQNSFERS ARE COMPLETED IN ONE BURST 


SELDEV DEV 
PC ,SUDEY 

25s 

CMDCHF 

303 


OXEXIT 

an RQ(DTAB), #1 
#11,SCMD(DTAB) 
60$ 


DEV 
DEV, MAXDEV 


oer SEL DEV & 
aT ie F9 Bo TATUS TABLE ADDR 


es, EXECUT Orr 
was” COMMAND CHAINING SPECIFIED 


WAIT FOR COMMAND 
its SAT TENTION TO BE SENT? 
'NO, CONTINU 


:YES, SET UP TO SEND THE ATTENTION 
!FOR THE READ MANUAL INPUT 

:TO NEXT DEV 

'HAVE WE TRIED THE HIGHEST DEVICE” 
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MACY11 30A( 1052) 
OX11-B ISR (SELECTOR CHANNEL 


BLE sos 
MOV #1,DEV 
sos: CMP DEY, SELCEV 


8 10$ 
SNP OXEXIT 


; THERE IS A sOB TO DO, 


tos MOVB SCMD(DTAB) , RY 
DEC RY 
ASL RY 
MOV DEV, SELDEV 
IMP aSCMOTB(RY) 
SCMDTB: .WORD RITE 
; WORD 


WORD SREAD 
RO ERASCM 

WORD CONUNE 

WORD AT 


O1-FEB-78 09:46 PAGE Se 


COMMAND EXECUTION) 


Mes RESTART AT FIRST DEVI 
:1S THIS WHERE IT ALL ST 

NOPE, TEST THIS DEVICE 
EXIT’ -- NO TASKS PENDING 


LETS DO IT 


nn yee 
nunnnnnn 
w 
m 
oah 
oO 
ee 


IT ENO 
ENTION TO 360 
RT MANU 


fluro 

nun 
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MAINDEC-11-DZDXI-8 NEW DXi1-B RESPONDER OA(10S2) O1-FEB-78 09:46 PAGE 83 

ea CB Fit 30-JAN-7"28 14:19 Ox11-B rR té L Bon CHANNEL COMMAND EXECUTION) 
3003 PERE RELUEECTLERELERRELAEREC RRR RRA RRR REET SECECRe rece 
soit : COMMANDS SPECIFICALLY FOR THE SELECTOR CHANNEL 

1 3 
3813 SETHSSTSRSVAVSTITSSSRESSSCSSSSR TET SS STF ES SSS TS CCST ERTS Sess es Sees esses ess 
3814 
3815 
3816 ; 
2817 : WRITE wag st RECEIVED FROM peo 
3818 ; PREPARE TO GET DATA FROM 360 
4% H BOTH WRITE AND WRITE LINE ADDRESS COME HERE 
3821 0067 016377 oO00006 003536 SWRITE: MOV hy ed. ever -SET UP BUFFER ADDRESS 
3822 006736 163777 013104 003530 SUB PHYOFF , JDX xBA 4 My VIRTUAL MEMORY -- OFFSET FOR PHYSICAL ADDRESS 
3823 006744 O13702 013110 MOV DEVCON, Re COMPUTE DEVICE ADDRESS 
385¢ poeses Fete baa 003510 nove RS. 
3826 006756 619555 177037 003512 MOV Soom ,» JOXBC; She a ep cot FOR MAX, WRITE LINE ADORESS 
3827 006764 116363 oO00000 9d000001 MOVB SCMD (OT ) "SLCMDLOT : ie FLAG 
3828 006772 105063 CLRB SSENSE (0 (OTAB) ; CLEAR an sens ENSE BY 
38239 006776 110037 01307 MOVB iS 
3830 007002 005063 000014 CLR CE eyTC STAB) Pe cet "RERAINING: BYTE COUNT 
3831 007006 O0Se777 O00003 o0034S4 BIS #OXWR, JDXCS : START TRANSFER 
so36 007014 000137 O102le JIMP DXEXIt : RETURN FROM INTERRUPT 
3834 
3835 5 
3538 : PERFORM READ MANUAL INPUT COMMANDS 
3838 007020 Sri: 
3839 007020 105737 Oles3e SSRMI: TSTB TSTTYP ;I1S TEST FOR Pty 
3840 007024 10 BNE SREAD ;YES, TREAT aa et AS READ FULL BUFFER 
1 007026 105063 o0000e CLRB SSENSE (DTAB) :RESET T THE SENSE YTE 

384 007032 S763 000017 TSTB SRORGQ(DTAB) ;WAS A RE EE eT EB? 
3843 007036 001002 BNE 10$ Me CONT INUE 
3844 007040 000137 oO1004e JIMP ESEG NO, TREAT AS A NOP -- END SEG ONLY 
384S 007044 105063 000017 108: CLRB SROR9( DTAB) 
3846 0070S0 016377 OO0020 003416 MOV SMINS(OTAB), mae :SET UP STARTING ADDRESS 
3847 0070S6 016302 000010 MOV SOUTB(OTAB), ; DETERMINE ENDING ADDRESS 
Em | 4 Seeans 000004 fee S(DTAB) RS 
3850 007070 167702 o03400 SuB dJOXBA, R2 ;COMPUTE BYTE COUNT 
3851 007074 100002 BPL 20S : INSURE VALID BYTE COUNT 
38Se 007076 000137 oO1004e JIMP ESEQ : ILLEGA iL 
3853 00710e o0s40e eos: NEG Re 
3854 007104 010277 003366 MOV Re, JDXBC ;SET UP Dx’S BYTE C 
38SS 007110 163777 O13!04 903356 SUB PHYOFF , JOXBA :FOR MEMORY MENABENENT - OFFSET FOR PHY ADDRESS 
+43] 007116 O00411 BR SRD10 : START THE READ 
38S8 
3859 , 
32860 : READ COMMAND RECEIVED FROM 360 
goek ; PREPARE TO SEND DISP BUFFER TO 360 
3863 007120 016377 900010 oo03s46 SREAD: MoV SOUTB(DTAB),@aDXBA ;SET UP BUFFER ADDRESS 
S864 O007:26 163777 013104 003340 SUB PHYOFF, aDXBA ;FOR MEMORY MANAGEMENT - OFFSET FOR FHY SDDRESS 








GO? 


NAINDEC=1i-DZDxI-B NEW DXi1-B RESPONDER OA( 1052) O1-FEB-78 09:46 PAGE 64 369 9084 
C2OxI6.F1i 30-JAN-78 14:19 Ox11-8 1SR° tg LECTO! XECUTION) sE % 4 

3865 007134 012777 177040 903334 MOV 8-DISPSZ,90xBC_ ;SET UP BYTE COUNT 

3866 007142 116363 000000 000001 SFD10: MOVB SC cmocOTAR).§ Lomo tO Tag) sj ;SAVE CODE OF LAST COMMAND 

3867 007iSO 013702 013110 MOV DEvco OMPUTE DEVICE ADDRESS 

$265 Stri8e T7929? o03304 nse 

38° 007168 105063 Hee CLR Bi ta :CLEAR SENSE BYTE 

3871 007166 110037 013070 MOVE ;SET OX ACTIVE FLAG 

387¢ 907172 90503 900014 CLR SRBYTCCDTAB) Sar} RENAL NING. BYTE COUNT 

3873 O0ri7e Oserr? 0000s c03z64 BIS B8OXRD, IDXCS 

3874 007204 000137 O10e12 IMP OxEXit RETURN FROM INTERRUPT 
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OOODUWOWOW 


2920 
3921 
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007350 
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.SBTTL OXi11-B ISR (MULTIPLEXER CHANNEL COMMANDS) 
MEX-- MULTIPLEXER CHANNEL EXECUTIVE 
MEX EXECUTES COMMANDS FROM THE OX ON A MULTIPLEXER CHANNEL 


NrERLEBVED. axe WiC BeOniErt Behe But bb BE cur 


Y qe IS NOT SERVICED UNTIL ALL OTHER DEVICES 


BEFORE 
DATA_TRANSFERS ARE DONE IN 4 BYTE BLOCKS, SO AS TO NOT 
HOG THE CHANNEL 
TSTB CMOCHF ;1S be ta CHAINING SPECIFIED” 
BEQ 10$ :NO, CONTINUE 
MOV MOEV 0 Vv YES. g, Leave b VICE AD ADDR THAT _HAD A COMMAND 
i€GneUTe ADDR OF Dev STAT TABLE 


PC, SUDEV 
S78 SCMD(DTAB) 
B YES JOR ECUT : 
CMPB SRORG(DTAB), #1 us ATTENTION REQUESTED? 


BNE ; NUE 
MOVB #11, SCMD(DTAB) ives, QUEUE ATTENTION 
BR SOs FOR THE READ MANUAL INPUT 


NO TASK we FOR CURRENT DEVICE 
ae O INTERROGATE NEXT DEVICE ON CONTROL UNIT 


THIS cop tu REPEAT SEQUENCES WHICH MAY HAVE RUN INTO 
A LOCKOU CON ITION IN 

INC DEV ; INCR_TO NEXT DEVICE NUMBER 

CMPB DEV , MAXDEV :WAS DEVICE NUMBER WRAPPED AROUND? 

BLE 45$ :NO, SEE IF ALL DEV ICES HAVE BEEN INTERROGATED 

MOV #1, DEV :YES, RESET THE DEVICE NUMS 

CMP DEY, MDEV :NO JOB HERE, HAVE WE CHECKED ALL DEVICES? 


BNE 30$ :NO, EXAMINE NEXT DEVICE 
IMP DXEXIT :YES, EXIT FROM ISR 


THIS DEVICE HAS A JOB TO DO, EXECUTE IT 
MOVB SCMD(OT9B) ,R4 ;COMMAND TO INDEX 


DEC RY :SCALE TO 6 - il 

ASL RY :MAKE INTO WORD ADDRESS 

MOV DEV, MDEV : SAVE CURRENT | DEVICE ADDRESS 
IMP OMNCMOTB CRY) 3 EXECU COMMAND 

WORD Mm R TE :1 WRITE FULL BUFFER 

WOR ESEO § FADING QUENCE 


SENSE COMMAND 
WRITE LINE ADDRESS 
READ FULL BUFFER 
COMMAND 


Q 
READ SHORT MANUAL INPUT 


SE 
se 


@ 908s 
& 008s 


IO? 
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CZOxIB.F 35-JAN-78 :19 K11-8 ISR (MULTIPLEXER CHANNEL COMMANDS) 
3333 TERRE P CTC LETELAELELALEL RRL 
3339 : COMMANDS SPECIFICALLY FOR THE MULTIPLEXER CHANNEL 
3937 POPPSOCECCCOOCCSCCOCCOCCCOCOCOCSOSCOCCOSSECCSOS OPCS CCPC PCCP POPP eee, 
3928 ; 
33393 ; WRITE COMMAND pec Ive fg + 360 
3940 ; PREPARE TO GET 4 BYTES OF DATA FROM 360 
sous : NOTE--BOTH WRITE AND WRITE LINE ADDR COME HERE 
3943 007352 005763 000014 MWRITE: TST SRBYTC‘OTAB) ;WRITE off PROGRESS? 
3944 007356 001011 BNE 1 SEND OUT MORE DAT 
394S 007360 016363 oO00006 oO000ie MOV SINBF (OTAB) SBuFACOTAB) ;SET UP BUFFER ADDR ESS = 
3946 007366 163763 013104 oO000le SUB PHYOFF , SBUFA( DTAB FOR. an MANG OFFSET FOR PHY ADDRESS 
3947 007374 012763 000741 9O00014 MOV #DISP PS2+1 SREY TC DTAB) ;SET UP BUFFER FOR MAX SIZE 
3948 007402 016377 OO00l2e OO3064 10S: MOV eBrACDTAR) aDxB BA OaTPate BUFFER ADDR TO ux 
3949 007410 013702 013110 MOV pay VCON, Re SCOMPUTE DEVICE ADDRESS 
3950 007414 060002 ADD Re’ 
3951 007416 110277 003044 MOVB RS 2 doxcA 
3952 007422 012777 177774 oO03046 MOV #-4, JOXBC ;START BYTE COUNT A 
3953 007430 O26327 000014 od00004 CMP enayTecpiAg), a4; eS LESS THEN 4 BYTES” LEFT? 
2954 007436 002005 BGE 20$ START TRANSFER 
3395S 007440 016302 O00014 MOV SRBYTC(DTAB),Re ; MES, USE REMAINING BYTE COUNT 
3956 007444 005402 NEG aS 
3957 007446 010277 OO3024 MOV ae 
3958 0074Se 105063 oa00002 20$: CLRB cee Nees TAB) CLEAR SENSE BYTE 
2989 0074S6 116363 O00000 o00001 MOVE Scnb (618), SLcmo! TAB) SET at She FLAG 
3960 007464 110037 013070 MOVB DEV, OXACT ;SET T ACTIVE FLAG 
3961 007470 152777 000003 002772 BISB extn, Sbxcs : START THE TRANSFER 
sors 007478 000137 O10e2le JMP OXE xIt : RETURN FROM INTERRUPT 
2964 
2396S ; 
3ec5 ; READ MANUAL INPUT COMMAND 
3a08 : THIS WILL TRANSFER ONLY THE DATA ENTERED ON THE SCREEN TO THE 360 
397 Go7502 ARMI = ‘ 
3971 007502 105737 Oles3e MSRMI: TSTB TSTTYP ;FRIEND OR 2848 DIAG? 
3972 007506 001034 BNE MREAD :FRIE ND -- TREAT AS READ FULL BUFFER 
3973 007510 005763 o00014 TST SRBYTC(OTAB) ANY DATA LEFT 1 TRANSFER 
3974 007514 001031 BNE MREAD : BRANCH IF YES TO CONTINUE 
3975 007516 105063 o00002 CLRB SSENSE (DTAB) he a THE SENSE BYTE 
3278 Opa ese Apoces 000017 ore” ee INES, . ey REQUESTED? 
3978 007530 000137 oO1004e 10$: JMP ESEQ NO, RETURN AN ENDING SEQ RESP DE!CE 
239739 0075 105063 000017 eds: CLRB SR Wane bre 6) CLEAR THE READ REQUEST 
32980 007540 016363 oO00020 onn01e MOV SMINS(OTAB), seuricbtas> set UP THE ADDRESS OF THE DATA 
3981 007546 016302 000010 MOV SOUTB(OTAB), "Re CO MPUTE’ bis, BYTE COUN’ 
3982 0075S2 066302 o00004 ADD SCURS(DTAB), "Re ;END - STA 
33983 007556 00530e DEC Re 
3984 0075 166 ooo01le SUB SBUFA(DTAB) ,Re 5 COMPUTE THE BYTE COUNT 
3985 007564 100761 BMI 10$ :NEGA TIVE -- SOMETHING IS WRONG 
33986 007566 010263 000014 MOV R2, SRBYTC(DTAB) :SAVE FOR READ DRIVER 
3987 007572 163763 013104 oo001e SUB PHYOFF,SBUFA(DTAB) ;FOR MEM MANAG - OFFSET FOR PHY ADDRESS 
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X11-B ISR (MULTIPLEXER CHANNEL COMMANDS) 


FALL THROUGH TO NORMAL READ BUFFER ROUTINE 


READ —, RECEIVED FROM 360 


PREFARE TO SEND 4 BYTES OF DATA TO THE 360 
MOVB SCMD(DTAB) ,SLCMD(DTAB) ; SAVE Caeee? OF LAST COMMAND FOR DISPLAY 


TST SRBYTC(DTAB) ;READ Ih PROGR 

BNE 10$ *YES. SEND OUT rior — DAT 

MOV SOUTB(OTAB) SBUER(OTAB) -SET U p BUFFER ADOR Ess 

SUB PHY SBUFA(DTAB) FOR. f MANAG — 

MOV BDISPS? eRBYTC (DABS T UP TOTAL BYTE COUNT 

MOV SBUFA(DTAB), JDxB BA Be ehDe BUFFER ADDR TO Dx 

nov DEVCON, Re COMPUTE DEVICE ADDR 

MOVB BS 2boxCR ;QUTPUT THE DEVICE ADDRESS 

MOV a-4,a9 OUTPUT THE BYTE COUNT 

CHP SaatTeCBTAB), a4 SEE IF REMAINING BYTE COUNT LESS THAN 4 
mov pm ,Re ;SET UP BYTE COUNT 

MOV XBC ;QUTPUT THE NEW BYTE COUNT -- LT 4 
CLRB SStN3E (OTA) :CLEAR SENSE AND SET DX ACTIVE FLAG 
MOVB DEV, DXA :SET DEVICE ACTIVE FLAG FOR SOFTWARE 


BEF ORE Maga IS STARTED SET BUSY FLAG IN DX11 STATUS 


TABLE FOR DEVICE 


MOV ; COMPUTE ADDRESS OF SPW ENTRY 
ADD BEVEON, Re 

ADD ster R2 ‘AbD IN SPW BASE ADDRESS 

BIS tRe) :SET UNIT BUSY FLA 

6158 torn, aoxcs :START THE DX READING 


OFFSET FOR PHY ADDRESS 
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oooo04 
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trascn: 
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-SBTTL OX11-8 ISR (MULTIPLEXER AND SELECTOR CHANNEL COMMANDS) 


eoceeseoeseeoeeees esos eee eeseevoeeaeeneeseeeeegeseeeseeeaeeseeteeseeaeeeveeeneeeeeeene 


PRESENT CONTROL UNIT END TO CHANNEL 


BISB aCUE.SSTAT(DTAB) ;PUT IN STATUS BYTE 
BR stout ;OUTPUT TO CHANNEL 


SEND THE ATTENTION BIT TO THE 360 


B1SB #aTTN, SATAT (DIAG? -PUT IN STATUS BYTE 
BR STOUT oUTPUT TO THE 360 


ERASE THE DISPLAY 


MOV SOUTB(DTAB),RY ;SET up BEG OF DISPLAY BUFFER 
MOV sDISPSZ,RS :SET UP COUNTER 

MOVB HEBCDSP, Re :SET BUFFER FILL FOR 2848 DIAG 

TSTB TSTT :1S TEST BEING RUN FOR 2848 RESPONDER 
BEQ 10S :YES, FILL BUFFER WITH EBCDIC SPACE 
MOVB PILL CH R2 'NO, USE CURRENT FILL CHARACT 

MOVB R2, (R4S+ :MOVE FILL CHARACTER TO BUFFER 

DEC RS’ :DECR COUNTE 

BNE 10S ; DONE, 00 NEXT CHAR 

CLR ECURS (DTAB) jRESET THE CURSOR 

CLRB SSENSE (DTA TE 


B) ;CLEAR SENSE BY 
MOVB #CEDE,SCMD(DTAB);CHANGE COMMAND TO PRESENT END SEQ 
FALL THROUGH TO PRESENT ENDING STATUS 


PRESENT ENDING STATUS TO CHANNEL 
BISB wCE!DE,SSTAT(OTAB) ;SET CH END + DEV END 


PRESENT STATUS TO CHANNEL 


THE STATUS IS BOTH PUT IN THE DX11-B SPW TABLE 
AND SENT TO THE CHANNEL. CONDITIONS CAN OCCUR WHICH 
Oe STATUS ENTRY TO THE CHANNEL TO BE 


MA 
xXIB.P 


SELEELCLELICLILCELIC LLL 
a ee be ne he Be Be se he ee ae be ee ee ee 


CONVTUMUPTTUPU UU be ee 
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5} 1-DZ0x7~8 NSH OX1158 RESPONDER oR CHL TTPLERER AND SELECTOR CHANKEL COMMANDS 262 Boe 
0100S0 013702 013110 STOUT: MOV DEVCON, Re ;OUTPUT DEVICE ADDRESS 

Bi onee rete i7 002404 MOVE Vs0K XCR 

910 eres oooob2 900003 Bits authK, SSTAT(DTAB) wot Sante THE NIT CHECK 8 BIT SET” 

010072 112763 00002 o00003 ~ MOVB SUCHK, sstat«ptaes Mae THEN SEND ONLY UNIT CHECK 


IF MULTIPLEXER CHANNEL 
CLEAR ANY PENDING STATUS IN SPW STATUS ENTRY 
(PROBABLY “BUSY” 


108737 OleS26 ios: TSTB CHTYPE ; SELECTOR artes L? 


010100 
Bibibe Beasoe BNB «ORB Re  EbapUE Ad ORES OF 'grH STATUS ENTRY 
019110 063702 013114 ADD STEPH, R2 BLE 
010114 105012 CLRB (2) i OFERE Seu STATUS ENTRY 
OUTPUT THE STATUS TO THE CHANNEL 
010116 116377 900003 902346 dos:  MOva. © SSTAT(DTAB),2DXOS_ ,OUTPUT STATUS TO CHANNEL 
BiBiS3 178655 BPSR9Z o0esse Base OBEN? paket” s BOESENT 10, CHANING 
010136 g004es BR DXEKIT : RETURN FROM INTERRUPT 


3 SENSE COMMAND DESIRED BY 360 


010140 012777 oO0002 o02326 SENSCM: MOV aSSENSE QOXBA ;SET UP ADDRESS OF SENSE BYTE 
010146 060377 O0e32e ADD DTAB, JDXBA 

101S2 163777 O13104 002314 SUB DAYORP. aBXBA ;FOR MEMORY MANAGEMENT - OFFSET FOR PHY ADDRESS 
910160 0137 013110 MOV DEVCON, Re :COMPUTE DEVICE ADDRESS 

10164 060002 ADD V.Re 
010166 110277 o02274 MOVB Re, YOXCA 
010172 012777 177777 o02276 MOV #-1, IDXBC ; TRANSFER 1 BYTE 
010206 110037 0613070 MOVB DEV; DxACcT :SET DX ACTIVE FLAG 
010204 052777 9O0000S ocOe2es5e BIS #OXRD, JDXCS :START TRANSFER 

; EXIT FROM THE DX ISR 

010212 012605 OxEXIT: MOV (SP)+,RS ;RESTORE REGISTERS 
010214 012604 MOV (SP)+°R4 
010216 012603 MOV (SP)+'R3 
010220 012602 MOV (SP)+'R2 
010222 012601 MOV (SP)+'R1 
O0iGee4 012600 MOV (SP)+°RO 
010226 oo0000e RTI 
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CZOXxIB.P1l 30-JAN-78 14:19 Ox11-B ISR (UTILITY SUBROUTINES) SEG 
4132 .SBTTL OX11-B ISR (UTILITY SUBROUTINES) 
41 ; 
4133 : SET UF ADOR OF CEVICE STATUS TABLE 
a : 
at : CALLING SEQUENCE 
4136 I RO = DEV # 
4137 ; ISR PC, SUDEV 
4138 TES? Peer RE TURN 
4138 : R3 = ADDRESS OF DEVICE TABLE 
stat : ONLY REGISTER R3 IS MODIFIED BY THIS SUBROUTINE 
4143 910230 013703 013064 SUDEV: MOV SDEVTS DTAB ;START AT DEV 1 
4144 010234 010146 MOV 1,-(SP) ;SAVE R1 
4145 010236 010001 MOV DEY, R1 
ai46 0192849 005301 SUD10: DEC Ri " ;DEC DEVICE NUMBER 
4148 Bt aSaq Be3383 002000 ADD 3 eB HO, DTAB :INCR’ TO NEXT DEV TABLE 
4149 010250 00077 BR SUD10 : TRY AGAIN 
4150 010252 012601 SUDEX: MOV °SP)+,R1 :RETURN TO CALLER 
4151 010254 000207 RTS PC 
4152 
4153 
4154 ; 
i185 : CLEAR DEVICE STATUS TABLE 
4157 ; CALLING SEQUENCE 
4158 * Neaieipapacat = DEV a 
4159 : JSR PC, CDEVST 
4160 i errr RE TURN 
4161 : R3 = ADDRESS OF DEVICE TABLE 
ibe : THE FOLLOWING TABLE ENTRIES ARE CLEARED 
4164 : SSTAT 
diee ; eRByT 
Y 
sige : jen 
i163 : ONLY REGISTER R3 IS AFFECTED BY THIS SUBROUTINE 
4171 010256 004737 010230 eévEVST: JSR PC, SUDEV :SET UP ADDR OF DEVICE STAT TABLE 
4172 010262 105063 o00000 CLRB SCMD(DTAB) ;RESET CURRENT COMMAND ENTRY 
4173 010266 105063 000003 CLRB SSTAT(OTAB) :RESET DEVICE STATUS ENTRY 
4174 010272 005063 O0001e2 CLR SBUFA(DTAB) RESET CURRENT BUFFER ADDRESS POINTER 
4175 010276 005063 000014 CLR SRBYTC(DTAB) RESET REMAINING BYTE COUNT 
4176 010302 165063 o00001 CLRB SLCMD(DTAB) ;RESET LAST COMMAND ENTRY 
4127 610306 000207 RTS PC ;RETURN TO THE CALLER 
4179 
4180 ; 
sine ; CSPWST -- CLEAR SPW STATUS BYTE 
4183 : CALLING SEQUENCE 
4184 he rented AB (R3) POINTS TO CURRENT DEVICE STATUS TABLE 
4185 Rint ene haes aa DEV (RO) CONTAINS CURRENT DEVICE NUMBER 
4186 ; JSR PC, CSPWST 
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SEELLELLEELELEL Hs Fa 


TU bh bh bh eb re he S=) 


SESRRPERSSEES 
O000000000 


oO 


oO 
oO 


NO? 


OXi1-B RESPONDER MACY11 30A(1052) Pd le 09:46 PAGE 91 SES ge3i 
14:19 OX11-B ISR (UTILITY SUBROUTINES) SES 0091 


[ ew eeeees RETURN TO CALLER WITH DEVICE STATUS BYTE RESET 
; ALL REGISTERS ARE PRESERVED ACCROSS THIS SUBROUTINE 


&spwST: MOV RS,-<(SP) ; SAVE REGISTER FOR SUBROUTINE USAGE 
000015 TSTB SORLF (DTAB) is DEV VICE ON-LINE? 
BNE JUST EX tr 
MOV eet DEVICE NUMBER AND COMPUTE 
013110 ADD ed RS 
ADD S.RS ;ADDRESS OF SPW STATUS BYTE 
013114 ADD STSPu, RS 
CLRB (RS) ;RESET SPW STATUS BYTE 
10$: nov (SP)+,.R5 ‘RESTORE REGISTER 


Wh 


OxXii-B RESPONDER 


i 
-"B 14:19 


105737 OleSe6 
001006 


162763 
003004 


000004 


000014 


ocoo04 


060014 


0000ie 


B08 
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MACY 1 
Ox11-B ISR (UTILITY SUBROU 


: TSTB CHTYPE 
BNE ss 


MUXEND -- HANDLE DATA TRANSFER COMPLETIONS FOR Mux 


- MUX DATA TRANS DONE 
ger - SEL CHAN OR DATA TRANSFER NOT DONE 


NO REGISTERS ARE AFFECTED BY THIS SUBROUTINE 


; SELECTOR OR ae FO CHANNEL 7” 
:SELECTOR CHANNEL -- EXIT 


MULTIPLEXER CHANNEL 
S #4, SRBYTC(OTAB) sDECR REAMINING BYTE COUNT 


BG 10% :IF > 1, DATA TRANSFER NOT COMPLETE YET 
DATA TRANSFER COMPLETE ON MUX CHANNEL 

CLR SRBYTC(DTAB) ; INSURE REMAINING BYTE COUNT ZERO 

SEC :SET MUX TRANSFER COMPLETE FLAG 

BR 308 :GOTO COMMON EXIT 

DATA TRANSFER INCOMPLETE 

ADD #4,SBUFA(OTAB) ;BUMP BUFFER ADDRESS 

CLC RESET FLAG TO INDICATE MUX CHAN NOT DONE 
RTS PC :RETURN TO THE CALLER 


om 
rata! 
ar 


COS 


Ma C-11-DZDx Wd -B RESPONDER PAGE 32 

Sete eee Fan se fari9 oxi1-8 ren (baa OBL SBPAY cBATREP SBanSdt iRe 26% 9893 
4231 .SBTTL Dx11-@ ISR (2260 DISPLAY CONTROL SUBROUTINE) 
4232 ; 
3533 : DISPLA@Y CONTROL ROUTINE 
4 ; THIS ROUTINE IS ENTERED AFTER DATA HAS BEEN 
4236 : RECEIVED FROM OR WRITTEN TO THE 360. 
4336 : DISCTL THEN FORMATS THE DATA 10 CONFORM To 
me ; A 2260 DISPLAY SCREEN IF THE 2848 DIAG IS RUN 
4 ; 
ye 3 NG 
4o4 : CALLING BE QuENSS POINTS TO CURRENT DEVICE STATUS TABLE 
4243 : JSR PC, DISCTL 
sews ey) aerr"¥ Ret 
4o46 : THIS SUBROUTINE IS ONLY USED TO COMPLETELY EMULA™— 
4247 ; ) 2260's DISPLAY. THIS ALLOWS THIS PROGRAM TO BE USED 
sexe : WITH THE 2848 RESPONDER DIAGNOSTIC. 
aey NOTE m= THe ROTATING BUTE COUNT US ROCTERS BS eI en PROM THE CHANNEL. 
aes 7 Rese PET arty Gre eoMeLe Laon. OF AN fo 
4253 ; S REMAINING IN 
wese : THE OX BYTE COUNT REGISTER. 
4 256 ; NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 
4258 910402 010046 brsctL: mov RO, = P) ;SAVE REGSITERS USED BY SUBROUTINE 
360 8154s Bidee 000001 900002 Core Cisse, CMRMI_;WA INPUT 

s 

4262 010416 001535 BEQ Mt? vee "PERFORM REAQ READ NUAL INPUT PR PROCEDURE 
4263 010420 126327 O00001 oDn0i2 CMPB Cr CHD(DTAB), ecnshint was IT READ MANAUL INPUT 
4264 010426 1S42 BE QSRMT sap YES, Beth 
4265 0104 126 oo0001 oco0006 CMPB CMO(DTAB), sCMRE A READ FULL BUFFER COMMAND? 
webb 010436 001522 BEG DREAD ;YES, RESET CURSOR ON READ FULL BUFFER 
4268 ; 
4269 : THE COMMAND MUST HAVE BEEN A 360 WRITE 
4270 ; DETERMINE TYPE OF TEST BEING RUN 
4272 O1O44O 105737 012522 . TSTB TSTTYP ;TYPE OF TEST O = 2848 1 = FRIEND 
i273 010444 001102 BNE DISFRN : FRIEND 
ise ; FORMAT DISPLAY ALA 2260 
4277 OC10446 016301 900006 : MOV SINBF(DTAB),R1 ;GET ADDR OF START OF INPUT 
4278 O104S2 126327 OO0001 oo0005 CMPB SLCMO(DTAB): ac cmt ;WAS LAST CMD A WRITE LINE ADDRESS” 
4279 010460 O0i0i6 BNE 208 NO, ‘NORMAL WRITE 
4281 : WRITE LINE AODRESS aan p 
igee ; FIRST BYTE OF DATA BLOCK IS CURSOR LINE ADDRESS 
4284 OC10462 005263 o00014 : INC SRBYTC(DTAB) s INCR BYTE COUNT 
4285 010466 112102 MOVB (R1)+. Re Get LINE NUMBER 
4286 010470 O42702 177760 BIC #177760, Re GET ONLY LINE NUMBER 


pe bee's ~ | ee NEW DXi1-B RESPONDER MACY11 3OA(10S2) Oi1-FEB-78 09:46 PAGE 94 268 ay 


CZDxIB.P 30-JAN-78 14:19 DX11-B ISF (2260 DISPLAY CONTROL SUBROUTINE) 
4287 010474 905063 000004 CLR SCURS (DTAB) ; 
1383 : COMPUTE CURSOR PDDRESS CURS = LINE # * LINESIZE 
4291 010500 005702 los: TST R2 : DONE? 
4292 010502 001405 BEQ 20$ MORE oATA INTO DISPLAY BUF 
4293 910504 062763 ooo0so 900004 ADD #LINSZ, ScuRsoTAB) StNcR TO NEXT LINE 
4294 010512 S302 DEC Re oceR LINE COUNT 
isan 010514 oo0o771 BR 10$ 
4297 MOVE DATA RECEIVED INTO DISPLAY FER 
42 THE para ¢ IVED Many ony Y CONE TGURA TION 
42 OF EIGHT B infor DISPLAY 


Tig ReceLuReCUROPoNES 1° e-OSLo THLE Bie 


CHARAC TEE TO ASCII 


w 
8 


4303 AND THEN BACK TO EBCDIC. 
q3p¢ 010516 016302 9009010 20s: MOV SOUTB(DTAB),R2 ;COMPUTE DISPLAY ADDR 
4307 1OSSe bee ae7 boobs 4 0007 cup core ceDTADS “S0ISP 1 L CHARS PROCESSED? 
~ 41 s + 
308 bigesd f Stits 4 Ses 4 
4309 010536 005263 000014 INC SRBYTC(OTAB) HINGRER NT THE BYTE C 
4310 010542 112100 MOVB (R1)+ NEXT BYTE RECEIVED AND Bune POINTER 
4311 010544 042700 177400 BIC #177400, RO i STRIP SIGN EXTENS JON BITS (IF A 
4312 010550 416000 011754 MOVB si77ag0,R0"™ Save CHARACTER INTO ascii CHARACTER SET 
4313 610554 2700 177400 BIC #1 ,RO P SIGN EX TENSION BITS, IF ANY 
4314 010560 162700 O00040 SUB CALE INTO ASCII TABLE RA 
4315 010564 116012 012354 MOVB ATOETE«RO) (R2) ETE FOLDING BY RETRANSLATING TO EBCOIC 
4316 010&70 oo00004 INC SCURS (DTABS soem CURSOR PTR 
434; 010574 lelee? o000es CMPB (Re), #NEWLNE :WAS A NEW LINE SPECIFIED? 
4318 010600 0601015 BNE 60$ 
4320 ; NEW LINE COMMAND - ADVANCE CURSOR TO BEG OF NEW LINE 
i323 : CURSOR = (CURSOR/LINESIZE + 1) # LINESIZE. 
4323 010602 oos002 : CLR R2 : CLEAR LINE CTR 
4324 010604 905202 40$: INC Re NCR LINE CTR 
4325 010606 162763 oOO000SO oj00004 SUB #LINSZ, scurs«oTAb) 
4326 010614 003373 BGT 40$ KEEP DIVIDING 
4327 010616 005063 oD0004 CLR SCURS (DTAB) CLEAR CURSOR 
4328 010622 062763 OO000SO op0004 Sos: ADD #LINSZ, TROD orabs 
4329 010630 005302 DEC Re 
4330 610632 9001373 BNE sos 
4332 : CHECK FOR WRAP AROUND 
4334 010634 026327 o00004 oD00740 os: CMP SCURS(DTAB), #DISPSZ ;CURSOR OVERFLOW DISPLAY BUFFER? 
4335 010642 O0e7e5 BLT 20$ sCURSOR OK, PROCESS NEXT CHAR 
4336 010644 005063 on0004 CLR SCURS (DTAB) :OVERFLOW, RESTART CURSOR AT POS 0 
4337 O10650 000722 BR 20$ 
4338 
4339 
4340 : 
4341 H FRIEND TEST IF SEPARATE 1/0 BUFFERS DON’T COPY 
4342 } NPUT TO OUTPUT BUFFER 


E08 


MA3INDEC-11-DZDXI-8 NEW OXi1-B8 RESPONDER MACYL1 30A(10S2) O1-FEB-78 09:46 PAGE 95 SEG 9095 
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4343 : 

4344 010652 105737 012533 SISsFRN: TSTB IOBUF i$ PARATE /0 BUFFERS? 

434S 010656 booze BNE DISCEx : SECe ont eOpy INPUT TO OUTPUT 

ae Gieey Giese. S500 Ae OME Stet cs 

4348 010670 81306 60036 MOV BBYsPSe aeRO RANSFE ue Tee ur BUFFER E33 THe OUTPUT BUFFER 

4 : 

4350 : PERFORM COPY 

4352 010674 O12122 los: MOV (R1)4+, (R2)+ ; INPUT TO OUTPUT 

4353 010676 0605300 DEC RO :ARE WE DONE? 

4354 010700 001375 BNE 10$ :NO, CONTINUE COPY 

4388 0:0702 000414 GF DISCEx :PREPARE TO RETURN TO CALLER 

4357 ; 

4358 ; A READ FULL BUFFER WAS PERFORMED 

m2 ; THE CURSOR MUST BE RESET TO THE BEGINNING OF THE SCREEN 

4361 010704 o0S062 000004 OREAC: CLR SCURS (DTAB) ;RESET THE CURSOR 

1362 010710 o00411 BR DISCEx [AND PREPARE TO EXIT 

4364 

4365S 

4366 

4367 A READ MANUAL INPUT WAS PERFORMED 


4368 TO EMULATE THE 2260 SCREEN THE START OF MANUAL INPUT CHARCATER 


4368 MUST BE DELETED FROM THE SCREEN 

4371 010712 016301 000020 ORMI: MOV SMINS(DTAB),R1 ;GET THE STARTING ADDRESS 

4372 010716 005301 DEC Ri j DECREMENT TO THE SM CHAR 
4373 010720 112711 0900100 MOVB sEBCOSP, (R1) ‘BLANK OUT THE CHARACTER 

4374 010724 166301 oO00010 SUB SOUTB(DTAB),.R1 :AND NC OMPUTE THE CURSOR POSITION 
4378 010730 010163 900004 MOV Ri, SCURS(DTAB) 

4377 

437 ; 

4379 : A SHORT READ MANUAL INPUT WAS PERFORMED 

4380 : NO ACTION REQUIRED BY DISPLAY CONTROL ROUTINE 
4382 010734 : 

438@ HSRMI 

4384 

4385 ; 

4386 : RESTORE REGISTERS AND RETURN TO CALLER 

4388 010734 012602 HISCEX: MOV (SP)+,R2 ;RESTORE SAVED REGISTERS 

4389 010736 O12601 MOV (SP)+°R1 

4390 010740 0612600 MOV (5P)+'RO 

4391 010742 600297 RTS PC ETURN TO THE CALLER 

433e .SBTTL TELETYPE (CONSOLES INPUT ISR 

i238 : TELETYPE INPUT HANDLER (ISR) 

wae? : CONTROL PASSES HERE ON A TELETYPE INPUT INTERRUPT 
4396 : DATA IS INPUT FROM THE CONTROL CONSOLE AND STORED INTO 


000 
ee 


ae: 
stats 


ReeRee Sens 
ae 
VNR NN NNN Naha S$ 


FRA 


Oororcoct 
ges 
Sea 

Ne NM ESNO 


WWOWLTW> 


R 


YQOVOOOOOOOOHOVOOOOOOOOOON0O 0000000000 
RPBa2e 
SORR-8 
Orr 


t+ e - OOO 


Ure 
oor 


013073 
000021 


013073 
013071 


011eSe 
000003 
0130S3 


000015 


012640 
013053 


000177 


ere te te eee ere eT 


100$ 
RO, (R1)+ 
RO, #CR 


30 
#TBUF RI 
Temact 


FOS 


A 30A(10S2) O1-FEB-78 09:46 PAGE 9% 
OLE) INPUT ISR 
malt QPERATOR WITS ACR 10 EN the Cone. tHE 
4 
VE FLAG IS SF° AND THE COPMaNS pune tine, ihe 
HE FOLLOWING CONTROL FUNCTIONS ARE AVAILABLE FOF 
OPERE CONVENIENCE. 
C/R LJ 
CRT AoE eee er aRac 
‘ = (BREKSLASH: sane ‘aie : ROELETE LAST LINE 
(CONTROL-C) = CURRENT COMMAND -- FOR DUMPS 
(RUB OUT) = L TE LAST CHARACTER 
(CTL-P) = REEN ALL PARAMET ERS 
(‘€TL-U) = DELETE C NT INFUT LINE 
(CTL-S) = TEMPORARILY STOP OUTPU. TO CONSOLE 
(CTL-@) = RESUME OUTPUT TO CONSOLE 
A CONTROL @ MUST BE ISSUED AFTER A CONTROL $ TO 

RESUME CONSOLE OUTPU 
RO,-(SP) ;SAVE REGISTERS 
R1’-(5P) 
aTKB, RO ;GET TELE CHARACTER 
#177600, RO : INSURE 7 =B1T ASCII 
TPTR.R1 :BUFFER P 
38 at TL.P : CON NTROL be ? 

RSTART ‘YES. ALLOW OPERATOR TO REENTER ALL PARAMETERS 
RO, #CTL.S ; CONTROL = TEMPORALILY STOP CONSOLE OUTPUT” 
TTYSTP ;ves, SET FLAG TO STOP TTY QUTPUT 
100$ EXIT FROM INTERRUP 
RO, aCTL.O CONTROLS @, RESUME CONSOLE OUTPUT? 
10$ ;NO CONTI 
TTYSTP :YES, RESET CONSOLE STOP FLAG 
PCTR : CHECK TO INSURE QurPuT TO RESUME 
100$ : NO OUTPUT -- abe IT 
PC. PROUT RESTAR CONSOLE QUTPUT 
1 AND’ EXIT FROM THE INTE 
RO, CTL.C ; COMMAND ABORT -- CTL 
TCMACT Is A COMMAND ACTIVE? 
30S ;NO "TREAT AS A DELETE LAST LINE 
TCMDAB YES, SET ABOR 
eTSUF Ri iSeT UP BUFFER POINTER 
TCMACT : TELE cn CURRENTLY ACTIVE? 

CHARACTER 


;YES NORE 
Cea! Char INTO BUFFER, - INC PTR 
iL INE DELLIMETER -- 


:RESET BUFFER PTR 
SET COMMAND ACTIVE FLAG 
DOR PRINT THE LINE DELIMITER 


100$ 
RO, sRUBOUT A RUBOUT 


« . 
+ bh be be be ho Be Be Be fe Be be Be he bo Be Be he ee 


Hirt St Ss 2 Sop + aR be ee ee Bo ee 
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-78 14:19 TELETYPE (CONSOLE) INPUT ISR 
137 Soy Pies R ty a TREAT A LE AST CHARACTER 
‘ ‘e 
8884 40% cree RO beoL.u ies TROL-U? CBE ESE £ CERENT INPUT LINE? 
000134 MOVB #°\.RO : NOPE "TREAT ees ere LAST LINE (BRCKSLASH. 
011366 cos: JSR PC, PCHAR THE CHARCTER BACK 
000137 che RO ae :DELETE LAST CHAR -- BACK ARROW’ 
enna cMPB a (RL). (RL) YES, DECR POINTER Bye? . ee 
aT * 
ste bs BE Ay Vogh of olf 
000134 60S: cne RO a’ :DELETE CUR LINE -- BACK SLASH? 
012640 708: MOV sTBUF Ri YES, RESET BUFFER PTR 
011330 JSR PC, CRLF NEW LINE FOR NEW COMMAND 
012740 80s: CMP R1' eTBUFE : ERE LIMITS EXCEEDED? 
BNE 100$ PE, 
000134 90S: nov gry Fo THEY WERE -- TREAT AS & LINE ABORT 
012742 1008: MOV Ri. TPTR :SAVE BUFFER PTR 
MOV (5P)4+,Ri RESTORE REGISTERS + EXIT 
mov (5P)4+'RO 
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CZOXIB.P Li 30-JAN-7S 14:19 TELETYPE (CONSOLE) OUTPUT ISR 
44> .SBTTL TELETYPE (CONSOLE) OUTPUT ISR 
44> : 
4480 : TELETYPE OUTPUT DRIVER (ISR) -- PRINT 
448i 3 
1388 5; CONTROL PASSES HERE ON A TELE OUT INTERRUPT 
4484 O11232 1 13052 PISR: R PIUFL :CLEAR PRINT SY 
4485 piis 1Beo3° Bi 3bs¢ - $EFe PCTR : ANY MORE Nate BS) Brine? 
4486 Olle 00452 BEG 10S XIT 
Bite nie Ta o11es2 236 PC, PROUT Oatrur ANOTHER CHAR 
1i oo 108: I 


I08 
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SNOB Fit 30-JAN-"B 14:19 ‘e TELETYPE OUTPUT HANOLING SUBROUTINES S640 

4488 .SBTTL TELETYPE OUTPUT HANDLING SUBROUTINES 

od + 

4431 : SEND DATA TO PRINTER, IF NOT BUSY 

yy 4 

4493 : CALLING SEQUENCE 

4494 : ISR PC. PROUT 

4498 ee ee ee RE TURN 

4 ‘ 

4497 : IF TELETYPE OUTPUT IS CURRENTLY IN PROGRESS oR HAS BEEN SUSPENDED By @ CONTROL - 

4498 : CONTROL IS RETURNED IMMEDIATELY WITH NO ACTIO 

s200 Bete Meee ebuT IS NOT CURRENTLY IN PROGRESS 

4501 : THE PRINTER BUSY UF Lag IS SET AND A CHARACTER IS SENT TO THE TERMINGL 

4503 : NO REGSISTERS ARE MODIFIED BY THIS SUBROUTINE 

450S OlleS52 105737 013052 Prout: TSTB PIUFL ;1S IT BUSY? 

4506 011256 001023 BNE 20$ :YES, EXIT 

4507 011260 105737 013073 TSTB TTYSTP !HAS CONSOLE OUTPUT BEEN SUSPENDED? 

4508 Olle64 001020 BNE 20$ :YES, RETURN IMMEDIATELY TO CALLER 

4509 011266 105237 013052 INCB PIUFL :NO, SET BUSY FLAG 

4510 Olie7e 105337 013571 DECB PCTR :DECR CHAR COUNTER 

4511 011276 117777 OO1544 o011S6 MOVE aPFPTR, JTPS OUTPUT NEXT CHAR 

4512 011304 005237 013046 INC PFPTR il NCR PRINT FETCH POINTER 

4513 011310 023727 013046 013046 CMP PFPTR, #PBFE TIME TO WRAP AROUND? 

4514 011316 001003 BNE 20 NO, EXIT 

4515 611320 012737 012744 013046 MOV sPBFS,PFPTR ENOg RESTORE TO START OF BUFFER 

3518 011326 000207 20S: RTS PC [RETURN TO CALLER 

4518 

dee3 : PRINT A CR/LF 

N 4 
4321 Sopa 
s N 

4525 SeRt ING BECK 

iese OR eth ee RETURN 

we26 : NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 

4528 011230 o1024%6 ARLE: MOV -(SP) ; SAVE THE R2 REGISTER 

45°39 011332 Olie702e 105215 MOV aidgeTs Re :D0 A 

4530 011336 004737 O11346 JSR nte > PRIN cre 

4531 O1i342 dOl2e60e MOV “ie. R2 RESTORE THE R2 REGISTER 

4S2e 011344 9090207 RTS PC :RETURN TO THE CALLER 

4534 

4535 : 

4536 : PRINT 2 CHARACTERS ON THE TTY 

4538 : CALLING SEQUENCE 

4539 Se Re CONTAINS DATA TO BE PRINTED (2 BYTES) 

aul JSR PC PRINTE 

ye43 eer a —£ TURN 


4S45 NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 


JO8 
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CZOXIB.P11 30-JAN-78 14:19 TELETYPE OUTPUT HANDLING SUBROUTINES 
4S4S 011346 010237 011362 PRINT2: MOV Re, P2eF 
4546 O113Se 004137 011472 JSR R1°MESG 
4547 011356 011362 .WORD PedF 
4548 011360 000207 RTS PC 
4549 931136e 000000 P2BF: .WORD 90 
4550 011364 377 a7? .BYTE 377.377 
4551 
4552 
4SS3 3 
4554 : PRINT 1 CHARACTER 
4sss : 
4556 : CALLING SEQUENCE 
4557 Bd de ode RO CONTAINS THE CHARACTER TO BE PRINTED 
4558 ; JSR PC, PCH 
i273 Te a cated RETURN WITH THE DATA IN THE PRINT BUFFER 
wee] : NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 
4563 011366 110037 o11402 PCHAR: MOVB RO,P18F 
4564 011372 004137 O11472 JSR Ri’ MESG 
4565 011376 91140e .WORD PIOBF 
4566 011400 000207 RTS pe sRETURN TO THE CALLER 
4567 011402 900 377 PIBF: .BYTE 0,377 
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4S6S 3 
4569 : PRMESG PRINT A CHARACTER STRING 
457 ; 
4571 : CALLING SEQ 
gee Pe ky Elaperone Re CONTAINS THE STARTING ADORESS OF THE MESSAGE 
457 JSR PC, PRMESG 
pe Te Br. gece RETURIy 
4 ; 
4578 : NCTE -- MESSAGE MUST BE TERMINATED BY A 377 
4578 : NO REGISTERS ARE MODIFIED GY THIS SUBROUTINE 
4579 011404 010246 bRMESG: MOY Re, -(SP) ;SAVE REGS 
4580 011406 010346 MOV R3;-(SP) 
4581 011410 013703 013050 MOV PPPTR,F3 ;GET PRINT OUTPUT POINTER 
4582 011414 iel227 000377 108: CMP3 (R2), 8377 :END OF MESSA GE? 
4583 011420 001417 BEQ 40$ :YES, EXIT 
4584 Oll42e 112223 MOvc (R2)+, (R3)+ :NO MOVE NEXT CHAR TO PRINT BUFFER 
458S 011424 105237 013071 INCE PCTR ;INCR CHAR COUNTER 
4586 011430 O20327 0613046 CMP R3, sPBFE :AT END OF BUFFER 
4587 011434 001002 BNE 20% :NO 
4588 011436 012703 012744 MOV #PBFS,.R3 ;YES, WRAP AROUND TO BEG OF BUFFER 
4589 011442 004737 Ollese 20S: JER Pc, PROUT :CAN' WE START PRINT? 
4590 011446 123737 013071 013130 30S: CrPB pctR, PMAX iS PRINT BUFFER FUL 
4591 O114S4 001774 BEG 30$ YES, WALT TILL ROOM” AVAILABLE 
4592 011456 000756 BR 10$ GET’ NEXT 
4593 011460 0610337 013050 40S: MCV R32, PPPTR tEX XIT RESTORE PUT PTR 
4594 611464 012603 MOV (SP)+,R3 [RESTORE REGS 
4595S O11466 Oleb0e MOV (SP)+'R2 
4536 011470 000207 RTS PC ;RETURN TO THE CALLER 
4598 
4599 , 
4e00 : MESG -- PRINT A CHARACTER STRING ON THE SYSTEM CONSOLE 
4602 : LIN N 
ete ; SALLI G SEQUE CE 
4604 : WORD @DORESS OF START OF MESSAGE 
weds tae pg tae ES RETURN 
me a4 : NOTE -- MESSAGE MUST BE TERMINATED BY A 377 
mg NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 
4611 011472 oO10246 hesG: MoV R2,-(SP) ; SAVE REGISTER 
4612 611474 OlelGe MOV (R1L)+, Re :GET ADDRESS OF MESSAGE ANC BUMP FOR RETURN 
4613 011476 004737 011404 JSR PC, PRMESG :MORE MESSAGE PROCESSING 
4614 011502 012602 MOV (SP )+, Re :RESTORE SOILED REGISTER 
Heis 011504 O00201 RTS :RETURN TO THE CALLER 
4617 
4616 ; 
Stoo ; INMES PRINT A CHARACTER STRING 
4621 ; CALLING SEQUENCE 
46ce ; 1, INMES 
“hes : .WORD ADDRESS OF MESSAGE 
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woes ee ie ald RETURN 
4626 : INMES IS nogEQ ES FCR OYE AT THE R LEVEL AND DOES 
4627 : ck TO SEE IF DATA W PL VERLAYED IN 
weeg ; Te) ESUEFE 
4630 : NOTE -- THE MESSAGE MUST BE TERMINATED BY A 377 
1632 : NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE 
dese gieio liseue Mees: fv, BR SL, CHEAT. SAVE. PMAK 
SESE Biteig 143538 843439 013130 MOV #377, * BMX :A be VERY LARGE 
4637 011522 01210e MOV (R125 Re 
4638 011524 004737 011404 JSR PC SG ;USE STANDARD MESSAGE PROCESSOR 
4639 011530 112637 013130 MOVB (Spo a PMAX :RESTORE PRINT MAX 
4640 011534 912602 MOV (SP)+'Re 
464i 011536 d00e01 RTS Ri ;RETURN TO CALLER 
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4642 .SBTTL UTILITY SUBROUTINES (CONVERT OCTAL OR HEX TO BINARY) 
4643 ; 

42 ; COTB -- CONVERT ASCII OCTAL TO BINARY (COTB) 

: N NC 

ded : ae SEOHFDR ADDRESS OF FIRST CHARCTER TO BE CONVERTED 
4oee ; JSR PC, LOT 
weu8 ci) pen RETURN 
4651 ; UPON RETURN THE FOLLOWING REGISTERS WILL CONTAIN 
woee : Re = NEXT CHAR POSITION Ar TER LAST ILLG CHAR 
46 ; RS = BINARY RESUL CONVERSI 
4654 : = (BITS 0-7) FIRST NON-OCTAL CHARACTER 
4655 ; Re = NUMBER OF CHARACTERS CONVERTED 
dee? 011540 005003 CoTB: CLR R3 
4658 011542 905005 CLR ae 
4659 011544 112204 10S: MOVB (R2)+,R4 ;GET_NEXT_CHAR 
4660 011546 segue? 000067 cnPB Rage"? :CHAR GT 7? 
eee Bi1ees 5 oo0060 enPB RY ao i CFR LT 0? 
4663 011560 10 BLT 20$ ; EXIT 
4664 011562 O42704 177770 BIC #177770, R4 ; SAVE ONLY LS. 2 BITS 
wees lL 906.303 ASL 5 ;SHIFT OLD RESULT BY 8 
46 11 ASL 
4667 011572 006303 ASL R3 
wee Bllere Beesbe we Re ARbn eect 
W670 B1ie08 Bb07er R ids SET NENT CHAR 
4671 011602 000207 20$: RTS PC ‘RETURN TO CALLER 
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4672 : 
4673 : CHTB -- CONVERT ASCII HEX TO BINARY 

75 : CALLING SEQUENCE 
Were 2 eee Re = ADDRESS OF FIRST CHARCTER TO BE CONVERTED 
4677 : JSR PC,CHTB 
4678 Ti! bps R N 
4679 : UPON RETURN 
4680 : Re = NEXT CHAR POSITION NOT CONVERTED 
4681 : R3 = BINARY RESUL 
4682 ; R4Y = (BITS 0-7) FIRST NON HEX CHARACTER 
4683 ; RS = NUMBER OF CHARACTERS CONVERTED 

8S 011604 9005003 SHTB: CLR R3 

011606 005005 CLR RS 

4687 011610 112204 10S: MOVB (R2)+,R4 ;GET THE FIRST CHARACTER 
4688 O116l2 162704 o00060 SUB #’0,R4 :SCALE RELATIVE TO ASCII ZERO 
4689 011616 100422 BMI os :NOT A VALID HEX CHAR 
4690 011620 Oe04e? oo0n1e CMP RY, #10. :1S RESULT STILL GT 107 
4691 011624 O02410 BLT 20$ :YES, WE HAVE A VALID HEX DIGIT 
4692 011626 162704 000007 SUB #7,R4 
4693 011632 Oe04e7 O000e0 CMP R4’ #16. ;IS IT A LETTER? 
4694 011636 O0201e2 BGE 30 :NO, INVALID CHAR 
4695 011640 Oe04e7 o00012 CMP RY, #10. :AND GT 10 

96 011644 002407 BLT 30% :NO, ILLEGAL C 
4697 011646 006303 20S: ASL :MAKE ROOM FOR NEW ENTRY 
4698 011650 006303 ASL R3 
4699 011652 ASL R3 
4700 011654 006303 ASL R3 
4701 011656 060403 ADD R4Y,R3 ; INSERT NEW ENTRY 
4702 011660 O0S20S INC RS :INCR CHAR COUNT 
4703 G1il662 000752 BR 10% :AND CONVERT NEXT CHAR 
4704 O11664 005302 30S: DEC Re :GET THE ILLEGAL CHARCTER 
4705 O1le66 112204 MOVB (R2)+,R4 :AND PUT IT RY 
4706 011670 207 RTS PC :ITS TIME TO RETURN TO THE CALLER 
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4707 .SBTTL PROCESSOR ERROR TRAP HANDLERS 

47 s 

4709 : TRAP CUT ROUTINES 

4710 3 . 

47] 

aig | 

4218 ; MEMORY TIME OUT ROUTINE 

4716 011672 O12702 014143 ATO: MOV sPHTO R2 ;SET UP ADDRESS OF THE PRINT ROUTINE 

miata 0:167S 900404 BR ouTrt :T0 GENERALI.-0 TRAP OUT ROUTINE 

4719 

4720 3 

pies : MEMORY MANAGEMENT TRAP OUT ROUTINE 

4723 011700 177572 MMERR: CLR MMSRO ;CLEAR THE MEMORY MANAGEMENT BIT 

4724 011704 012701 014167 MOV SPMMERR, Ri :SET UP ADORES OF ERROR MESSAGE 

4725 011710 TOUTRT: RESET ; CLEAR ALL DEVICES 

4726 011712 105037 0130Se2 CLRB PIUFL :CLEAR PRINT IN USE FLAG 4 

4727 011716 005037 177776 CLR PS :LOWER PROCESSOR STATUS TO ALLOW INTERRUPTS TO CUM 

4728 011722 004737 011404 JSR PC, PRNESG :PRINT THE ERROR MESSAGE 

4729 011726 105737 013071 10S: TSTB pctr :IS PRINTING DONE? 

4730 011732 001375 BNE 10$ 

473i 011734 O00000 HALT ;YES, HALT 

4736 011736 000137 061000 IMP START 

4734 

4735 ; 

me | ; INVALID UNIBUS ADDRESS TRAP 

4738 O1174E2 022626 UNTRP: CMP (SP)+, (SP)+ ;POP THE PUSH § 

4739 011744 005037 177776 CLR PSi :CLEAR THE P Ruees ecoR STATUS WORD 

4740 O11750 000137 001174 IMP NEWPRM :ASK OPERATOR TO REENTER THE DATA 
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ZDOx1IB8 14:19 
4741 -SBTTL CODE CONVERSION TABLES 
“742 : 
45d ' EBCOIC 70 PSCELCROE CAUMER ETON Pet hro @ G4 CHARACTER SET 
4? : 
rt NOTE -- BACKARROW IS USED TO DENOTE A NEWLINE 
ur4> 
74 754 tecots: 
U548 811524 oyow4o owisoe2 ovesoy LASCII / ABCDEFGHIt.< (4! ;00 - OF 
4750 011762 43506 044510 027136 
4 554 pasoug 61 ; 753i [ASCII “BIKLM+OPQR+$#); 1" 510 - IF 
i758 bea ll pidy 832343 
4754 012010 Gex4s2 056473 
4755 12014 Ge7vss 123 053125 LASCII. *-/STUVWXxYZ",%E>? :20 - 2F 
sree 15055 41 131 O26042 
4 1 1 032464 LASCII "0123456789: #a’=\" :30 - ¥ 
4759 O1e04e 034470 021472 
a7e) 81Sbe4 BS253 oyeso4 -ASCII / ABCDEFGHIt.< (4! :40 - 4F 
763 Biseee BeNoes Beoses Owe 
4764 O1 113 047115 LASCII “BJKLMNOPQR+S*#); 1” :S0 - SF 
4765 016102 1 Hiei Geel 
47 1311 4 
4767 012114 052123 053125 LASCII. *-/STUVWxYZ",%I>?° 560 - OF 
izes Blige Qesune O37i7e Oo 
4790 b1Si34 O35: 032464 \ASCII “0123456789: 8a" =\" :70 - 7F 
4771 O12142 033466 470 021472 
4772 012150 G23S00 OS6075 
4773 012154 O40440 O41502 o4e2S504 -ASCII / ABCDEFGHIt.<(4+!/ :80 - oF 
4274 Ole1g2 043506 0 027136 
4775 lel o 7 
4776 012174 113. 047115 LASCII “BJKLMNOPOR+S#); } 590 - 9F 
4777 Ole202 OS0i17? 051121 022137 
4778 Ol2210 Oex4sSe 056473 
4279 Gleel4y Ge745 052123 053125 SASCII *-/STUVWXYZ",%E>?? ;AQ - AF 
4780 Olzee2 O54127 055131 O2604> 
4781 012230 OSS44S 037476 
4782 Olee34 O30460 031462 032464 -ASCII “0123456789: #a' =\" :BO - BF 
4783 Oleed2 O33466 034470 O21472 
4784 O122S0 023500 056075 
4766 Bisse4 BHOSaD Dateos oO42504 LASCII / ABCDEFGHIt.<(4!/ :CO - CF 
4786 Ole262 043506 O44510 027136 
4787 012270 O24074 029453 
47e8 Olee74 O4s04E C4113 Oy7 115 LASCII “&JKLMNOPGR+$#); }" :00 - OF 
4789 O1 112 Osiiel O2e137 
4790 O12310 Oe4462 056473 
4791 012314 027455 052123 053125 (ASCII. *-/STUVWXYZ", I>?" :E0 - EF 
4792 Olesee O54127 055131 O26042 
4793 012330 OS544S 037476 
4794 012334 O30460 031462 o32464 \ASCII “0123456789: #9" =\" FO - FF 
4795 Oles42 O32466 034470 O21472 
4796 012350 023500 O56075 
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4797 ; 
4? ; ASCII TO EBCDIC CONVERSION TABLE 
4799 . 
4890 12354 199 142 152 ATOETB: .BYTE 100,117, 152,173,133,154, 120,175 ;240-247 
Neos BiS3e2 128 {32 te 
4803 012364 115 135 134 -BYTE 115,135,134,116,153,140,113,141 ;250-257 
4804 B133¢e 116 183 140 
4808 1 355 1 362 -BYTE 360,361,362, 263,364, 365,366,367 ;260-267 
4807 012377 363 364 365 
4808 012402 366 367 
4809 B12404 370 371 172 BYTE  370,371,172,136,114,176,156,157 ;270-277 
wet Bie ie 
412 pisais 174 301 302 -BYTE 174,301,302,303,304,305,306,307 ;300-307 
wey fiewe ie et 
4815 Bisies 310 311 321 BYTE 310,311,321,322,323,324,325,326 ;310-317 
4 ig 12427 322 323 304 
4817 O1e43e 325 326 
4818 012434 327 330 331 BYTE 327,330,331, 342,343, 344,345,346 ;320,327 
4819 012437 342 343 344 
4 piewie 34 34 é 
4821 012444 4 S 351 BYTE 347,350,351,155,177,137,112,025 ;330-337 
“Bee 012447 iss 177 137 
4823 O1e4se 112 oes 
iee0 .SBTTL PROGRAM CONSTANTS AND VARIABLES 
secs : CONSOLE UNIBUS ADDRESS CONSTANTS 
4828 012454 177560 tks: .WORD 177560 ; KEYBOARD CONTROL STATUS REGISTER 
4829 012456 177562 TKB: -WORD 177562 :KEYBOARD DATA BUFFER 
4830 O12460 177564 TPS: WORD 177564 : PRINTER STATUS/ CONTROL REGISTER 
4831 Ole46e 177566 TPB: “WORD 177566 :PRINTER DATA BUFFER 
4832 
4824 
4835 ; 
1838 : DX REGISTERS - ADDRESS GENERATED BY INITIALIZATION 
4838 012464 o00000 dxps 0 DEVICE STATUS -- 
were LENE Soopee pee tee oes asraiegas 7 
LIL) 
4841 B1s458 setetelete xO WOR 0 : CON SEF ah ATUS 
4842 012474 900000 DXBA .WORD O : BUS ADORES 
4843 012476 000000 DXBC: 0 :BYTE COUNT 
4844 012500 o00000 DXMO: WORD O :MAINTANCE OUT 
484S 012502 OO DXMI: WORD 0 :MAINTANCE IN 
4846 O12S504 OXCB: WORD O ;CONTROL BITS 
4847 012506 O00 DXND: ORD QO ; DATA 
4843 b12610 0009006 XES1: .WORD O :EXTRA SIGNALS 
4849 OleSi2e 900000 XMOB: :WORD O :BUFFERED BUS OUT 
4850 012514 o00000 DYES2: .WORD O :EXTRA SIGNALS 


Ke 
fureE 
vow 


ag 


be ee eh ee 


Q0000000000 
attra tt 


WWWW 
W fw 


13046 


C12636 
Cicb36 


000000 
0000008 


—-O 
£ 


of RESPONDER 


SSTACK 


PCTR: 
DXABFL: 
TTYSTP: 


CMOCHF : 


MOE: 
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CONFIGURATION CONSTANTS 


WORD O ;UNIBUS ADDRESS 

WORD OQ :DX VECTOR ADDRESS 

WORD OQ ;STARTING DEV NUMBER 

. WORD 0 ;ENDING DEV NUMBER 

BYTE 0 ‘Cee YPE O . as - 1 = SEL 

. BYTE 0 MORY MANAGE T O = NO - z YES 
WORD 0 ; BUFFER RELOCATION ADDRESS 

BYTE 0 TYPE O = 2848 - 1 = FRIENO 

- BYTE 0 i SEPERATE 1/0. BUFFER O = NO 1 2 YES 
BYTE 0 FILL CHARACTER 

BYTE 0 TEX XTRA 
SYSTEM PUSH STACK 

.=.4100 
SYSTEM VARIABLES 

THE FOLLOWING VARIABLES ARE RESET UPON START-UP 

-WORD O ; DUMMY 
= 100 ‘ ;START OF TELETYPE INPUT BUFFER 

=.+ 

WORD O sENO OF TELETYPE INPUT BUFFER 

WORD O :TELE IN PT 

sey 0 :START OF PRINT BUFFER 

oe 
= . ;END OF yin ores 

.- WORD Q :PRINT FETCH 

- WORD 0 : PRINT PUT PTR 

.BYTE 0 seateren IN USE F 

.BYTE 0 TELE COMMAND ACTIVE FLAG 2° = NON-ACT 
.BYTE 0 COMMAND ABORT 1 = ABORT 

. BYTE 0 The CTR - CHARS / LINE 

-BYTE O ; WORK Los 

.BYTE 0 : WORK 

-WORD O i HOMBLES FABLE £ Pm 

-WORD O :BEG OF TUMBLE TABLE 

-WORD O :START OF DEVICE TABLES 

-BYTE O :Dx STOP FLAG 

.BYTE fa sHIGne ST OEV #1-8 

BYTE is] ;OXACTIVE FLAG 

.BYTE 0 ;PRINT BUFFER COU NTER 

BYTE 0 DX xX ABORT FLAG O = NO ABOR 1 = ABORT 
g ML 0 : CONSOLE OUTPUT STOP FLAG ae OUTPUT; 1 = NO OUTPUT 
WORD 0 ;COMMAND CHAIN FLAG 

WORD 0 : DEV # IN MPXR EXEC 
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4909 013076 SELDEV = MDEV :DEV @ IN SEL EXEC 

4910 013100 999000 PBUFA: .WORD z Puy TcAL gover ADDR - IN ,000°S 

4911 013102 0000 VBUFA: .WORD Roth on IN 600° S 

4325 rests Ao le WORD 5 aoreSe! F VIC NTER SERVICE ROUTINE 

4914 813198 DEVCON: .WORD 0 i6 VICES ~Dx, BY A Sue na oANTE = STARTING DEV NUMB - 

4915 013112 00 XADDR: .WORD 0 : EXTENDE RODR 3s BiTS, roa HE'D Be MCONTROL REGISTER -- IN 

4916 013114 0000 STSPW: .WORD O :ST TABLE 

4917 013116 O00000 DSTOFF: .WORD O ; OFFSET To. tee Be T TABLE 

4918 013120 900000 SADOR: .WORD OQ : TELETYPE C STARTING BUFFER R AOORESS 

4919 Oi3i22 o00000 EADDR: -.WORD O : TELETYPE CO ENDING BUFFER ADD 

4920 013124 O00000 DMPADR: .WORD 0 :POINTER 16 DUMP ROUTINE CURRENTLY BEING UTILIZED Gv TEL 

4921 013126 9090000 VEND:  .WORD O 

4922 

4923 

4924 : 

was : THE FOLLOWING VARIASLES ARE NOT RESET ON START-UP 

< . 
4927 013130 000102 Pmax: .WORD PBFE-PEFS :S1ZE OF PRINT _BUFFER 
4928 013132 900000 FTIMFL: .WORD 0 FIRST TIME FLAG 


oOo 
wu 


O00 000 000 0200 0200 000 000 2000 000 000 000 DO0000 
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-SBTTL MESSAGES 
-NLIST BEX 


SYSTEM MESSAGES 


212 SSG: .BYTE 215,212 
OS4104 O26S11 "ASCII /OZDAI-B NEW OX11-B RESPONDER 
rad -ByT 77,377 
le UNMSG: .BYT 1S‘ 2le 
o44Si6 os2502 "ASCII /UNIBUS ADDRESS -OCTAL- : 
‘BYTE 377 
212 VEC TMS Ever 15,212 
042524 051122 ‘ASCII /TARERRUPT VECTOR ADORESS -OCTAL- : 
:BYTE 377 
212 DEVMES  EveR 5,212 
yi Vv i 
044526 042503 "ASCII Abe tee ADORESSES -HEX- (Xx, xx): 
‘BYTE 377 
212 CHTYMS Ever 1S,21e2 
our ibe 042516 “BEC I /BhBAREL TYPE (MOR S): / 
‘BYTE 377 
1 MMMES Eee 215,212 
ou7Eié os4s22 “BLT / RORt MANAGEMENT (Y OR No: / 
‘BYTE 377 
212 BFREMS i 15,212 
043106 051105 Ber Aerts RELOCATION, IF SPECIFIED - IN EVEN ,OO0°S -OCTAL- : 
‘BYTE 377 
EVEN 
212 TESTMS: BYTE 21s 212 
O42511 O42116 "ASCII “FRIEND (F) OR 2848 DIAG(D): / 
‘BYTE 377 
"EVEN 
212 FIOMS: .8YTE 215,212 
o4o0Se0 = o40s22 "ASCII /SEPARATE I-O BUFFERS ‘Y OR N): 
[BYTE 377 
. EVEN 
FILLMS: .BYTE 215,212 
os012e4 os21es ASCII /OUTPUT SUFFER FILL CHARACTER -HEX- : - 
fa 7 
207 215 NXMMSG: :BYTE 207,207,215,212 
020116 o54105 "ASCII /NON'EX-MEM ERROR’ 
212 377 BYTE 215,212,377 
207 21S PARMES: .BYTE 207,207,215,212 
o44S2e os4se4 "ASCII “PARITY ERROR’ 
21s 377 Byte 212,215,377 
207 21S ILLMES: .BYTE 207,207,215,212 
042514 o40507 "ASCII /ILCEGAL DEVICE NUMBER. 
215 377 “BYTE 212,215,377 


oOo 
ae 


| a al 
ee 
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014016 OS2S503 051122 O4710S STPMES: .ASCII /CURRENT DEVICE NUMBER -- 
01404? 377 BYTE 377 
14 ? 1S INVLOC: .6YT 207 
gt 4Se9 O47111 owo8se owes Bee RvALYO Bx PCS RRANO 
014076 eh 215 377 BYTE “aie. 215 
914108 a045 947516 O4644O PNOMM: SEIT 2 / 3No “pute MANAGEMENT AVAILABLE 
014143 215 212 207 PMTO: .BYT FH 2,207,2 
Baia? 138 o4eS0S 051117 “Beet Sia Fre 8u UT’ 
14166 ‘ “BY 
014167 215 212 207 PMMERR: . BYTE 316 212,207,2 
014173 115 O4650S 0S1117 -ASCII ZMEMORY SANAGEMENT ERROR / 
o14222 ?7 [BYTE 377 
014224 * EVEN 
014224 is 212 RNMESG: BYTE 
014226 oOS4S23 OS2123 o46S05 SASCII e18 526 INITIALIZED, TYPE “R” TO ENABLE DXx/ 
014277 377 "BYT a7 
014300 d1s O12 HELPMS: :BYT 
014302 OS4104 O30461 o410SS "ASCII SKI I-8 2848 EMULATOR TEST PACKAGE - OPERATIONAL INFORMATIO 
014375 01S 01 "BYT CR,LF 
01437 ois 1 “BYT €R'LF 
bisses ge004s beeo40 bBppN0 tho — Ce Ceara re TABLE IN_CODE “omy CR» LF 
/ “an ><LF> 
014504 Geoo40 De aut “Beett / DIN: C. Xx DUMP INPUT BUFFER FOR DEVICE Xx IN CODE “C™/« CR) «LF. 
014602 O20040 Oe 0 “ASCII / DOT DUMP OUTPUT BUFFER FOR DEVICE xx IN CODE “C"/°cR> LF 
014701 0264 ss "ASCII VE -- enagLe bEvICe ON OX/<CR><L 
014733 02 : 920040 ‘ASCII 7 EXX ENABLE DEVICE HX/<CR> LF 
014776 O20106 Oe64s 3040 "ASCII /F -- FILL BUFF ER COMMAND/<CR> <LF 
015030 O20040 0 0 ASCII / FIN, HH,XX FILL INPUT BUFF ER ON DEV Xx WITH HH (CRD “LF 2 
015116 0 Oe0040 d2e0040 ASCII 7 FOT’ HH’ Xx FILL OUTPUT BUFFER ON DEV XX WITH HH/<CR>-°L 
015205 110 026440 5 “ASCII 74 -- HELP COMMAND/<CR 
015230 B040 "ASCII 7 THIS TEXT/<C yy " 
015252 e011 45 S440 ASCII /K -- KILL AD VICE, ON THE DX/<CR><LF> 
015310 Oe0040 Oe 0040 ASCII 7 KXX DEVICE XX/ (CRD (LED 
015351 l22 02644 ooss ASCII /R -- ENABLE Dx CRON 7< ><LF> 
015377 040 020040 ASCII 7 R N TEST/<CR><LF> 
015432 020123 Oe64sS oO42040 ASCII /S -- DISABLE Dx (stop 7 tcR) ALP 
015462 O20040 O2004 0040 ASCII / STOP IMMEDIATELY /<CR> <LF > 
015525 040 O20040 O20040 ASCII / 50 STOP AFTER NEXT DATA TRANSFER? <CR LF» 
015605 040 O2004 O4 ASCII / Se STOP AFTER NEXT ENDING SEQUENCE <CR><«LF. 
015667 40 O20040 Oe0040 ASCII 7 SI STOP ON NEXT SEL SEQ (I5S)/<CR>‘LF> 
915744 g20040 02004 0040 ASCII 7 SP STOP ON NEXT PARITY ERROR’<CR><LF> 
Oieoas 540 b208 ret Gece Oe Ee ERE FORMAT =. = “OCTAL/<CR><LE 
7 4 - oe = 4¢ < > 
016106 OS p540 nett eins ASCIT 7 A = ASCII’<ER><LF> 
Sie146 d20040 de0040 de0040 ASCII / E = EBCDIC/<CR><LF> 
4 ) 
016261 O4 eee B59 49 Reet} / tem 1s Dx- 11 DEVICE NUMBER TN + HEX/<CR> <LF> 
016331 O40 O20040 621040 ASCIT A HEX CHARACTER/<CR><LF><LF> 
916367 193 7117 p47523 asciT 7 CONSOLE, SRTRO CHARACT ERS/ «CRD CLF 
16422 1 6124 14 aq ) ABORT CURRENT COMMAND7<CR><LF> 
O164ES 046124 oOs00S5 ‘ASCII CETL OB (tP) REQUESTS THE REENTRY OF CONTROL PARAMETERS CR <LF> 
Si€SS4 352103 O26514 20121 ASCII YECTL-@ (1@) RESUME OUTPUT AFTER TEMPORARILY STOPPING BY (tS) CR LF 
O1eE1 646124 OS1455 "ASCII vCTL-§ (4S) TEMPORARILY STOP OUTPUT TO CONSOLE’<CR> LF 
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016730 OS2103 o26514 O20125 ASCII /CTL-U_(tU) DELETE CURRENT INPUT LINE’‘C®. LF 
pierre OSeSe2 O47502 OS21e5 "ASCII /RUBOUT -- DELETE LAST CHARACTER INPUT’ CR LF 
01704 ois d1i2 512 “BYTE CR,LF,LF,LF 
002551 HELPLN = .-HELPMS 
217951 215 212 T50c: .BYTE 215,212 
5i 7953 igs O47517 o41440 "ASCII /7TO4 CLOSE TO 200000 BOUNDARY 
01710; oe .BYTE 377 
7 LIST SEX 
433: -EVEN 
4332 90600: LEND 
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ACCESS o040S0 2705 29798 
ASCOMP 004 Sau> ss Sicia 
ATOETB 012354 $095 «4318 =: 48008 
BERENS 513436 g930" sae 
a ie 
Y s 
BUFREL 012530 Sou9s S432 0Ci«i®OC4RS S426 CEB 
eCoUT= DODOdO Siogs 3699 
epey ” Bi sibe oor = guyge 49138 
CDEVST 010256 $555 3022 «04,3514 0 s«a3s4?)—ss26B 0803718 
fEpe = BOO0dS cores «= See8 732 =e 
= 1 
CERR 003026 seau8 «373300Ci«C«?SsCi«‘iRE C2984) 3072—Ss«273. 3352 
CHEND = 000040 Sosia 3500 
CHENDS= 001000 50478 
CHIS = 000200 50498 3497 
CHTB 011604 5259, 36i8 2922 3345 4685s 
EtTYPE pizese eee, «6 asese 63759 «S093s«22 Ss‘ 
CMDCHF 013074 SSucx SE3G2 «RGEix 635730 s367S" «3606s 3701 «= 37036 «3777 
CMDCHN= O00004 S0s4s 3604 
CMDREJ= OO0001 Soca 3656 
CMREAD= 000006 50348 4268 
CMRMI = OO0002 50328 «4261 
CMSRMI= OOD012 50358 4263 
= 900001 50318 
CMMTLA= O06 50338 4278 
01253¢ Ges 
CO OOFFe0 33 3930 40378 
COTB. «011540 5633 «-3979's«283B)S 32600328278 
CR = 000015 [s7ie 5204 «= S307) See SCBS2GSsiéS.«SC«27H2-=Ss«i300-—S—=—«CS08B 
CRLF 011330 2190, S666 3810 3163 3182 S217 9469 4Seae 
CSPWST 010310 5738 «= eis (si‘sSe4esiSSS3SGGSHESS 4S 
CTL-¢ = 000003 [9748 44393 
CTL. = 000020 ig7se | 4uae 
€TL:@ = 000021 igvee | 4452 
ETL:§ = 00002 ig778 «4438 
CTL-U = oO00s5 i97e8 44s? 
CuBUSY= 009400 20708 3536 
CUE = 000040 50928 «4037 
CUEND = 000020 Soss8 3503 
ce = 900004 50968 2895 = 4071 
DEVCON 013110 Scuox  Seuix 3025 30S0 3823 3867 3949 4004 4020 
SEVMES 013300 5349 «49308 
DISCEX oO10734 S308 4434S ««43SS-si«4382—St«s«NBG 
OISCTiL Olo4de 3597 «esas 
OISFRN 010652 437343048 
51SPSz= OOO74O g0e4e 2563 3074 = 3084 ©3310 9323 S22 38RG BS 
DMPADR 013124 2Be0% 2878 2895 49208 
ONE. = 000200 So7ie «3421s 34S 
BREAD 019704 §266, 43618 
RMI. 010712 Woes 7 1 
OSPMI 010734 WSE4 «Bs 


3631 


4449 
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3947 


49078 

4930 

4113 4195 
40Ce2 40Se 
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49178 


3284 


33248 
32598 
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37518 
375e# 
35S0# 
3850 

3865 
4006* 


2756+# 
4024s 


3751 


37930 


3751 
4118 


3654 
2940 
4053 


47488 
2261 


3925 
2759 


e564 


2577# 
3046 


3294 
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3832 


3730 
328S* 
4373 
2486 


3378 
2804 


29e3# 


49288 
3069 


3306 
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USER 


3572 
3863# 
3957* 
4115S 


2758* 
4118* 


3874 


3744 
3309* 


2536 


4O718 
2824 


2939 


334S8 
3319 
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360e* 


3864s 
4007# 
48398 


2809 
48408 


3893 


49008 
3310+ 


4ecSs 


2886 


3526 


3329 


37138 


3948+ 
4012 


282e* 


3914 


3322 


2906 


40S6 


3728% 


4003* 
4116% 


2823+ 


3362 


3323+ 


2s4e 


486Se 


3829+ 387i 
4110 41llil# 
48438 

34216 3450s 
4025 4104 
431S8 

2965 30093 


4lo4e 
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GLMIN 005172 3266 33048 
GLMOT 005232 3268 33178 
GLMTT 005142 3264 3e9e8 
GLOCT di5 3262 32738 
HOMP 76 2814 3el 

LP 04 2713 29518 
HELPLN= ssl e9Se 49308 
HELPMS 014300 2951 49308 
HEXDMP 004754 28S3 32178 
ILLMES 3762 3467 49308 
ad = 4 ‘sy 3433 

x y 24 392 26188 a 
INI 2184 2364 2380 2382 2394 e404e 
INNES, 011506 gece, «58839 «36373669 43H 
INOCT 002632 2201 eee4 2e76 2304 2321 23s9 2378 26338 
INPUT 4330 2715 30678 
INRS 36 2619 26348 
INTREQ@= 000100 21038 62 
INVLDC 014050 3670 49308 
IOBUF 012533 2377# 238S* 4344 4664a 
ISSREJ= 10 20S38 3610 
KILL 4266 4X4 30468 
KILLEX os4s 
KISARO= 172340 19628 2437 
KISAR7= 172356 19638 2448 
KISORO= 172300 19648 2438 
LF = 19728 4930 
LINECT 013055 267e# 3161 3164 3165 4894~ea 
tase’ * Bosses eo Sle Hor ee RE are YORE 
MAXDEV 013067 2539 2568 2743 3349 332 3532 3785 3909 49018 
MCMDTB 007326 3322 39238 
MDEV 013076 2754 3894 391e 3921 49088 4909 
MESG 011472 2191 2293 2340 2586 2811 YouE 4S64 46118 
MEX 007210 3761 38918 
MMERR 011700 2160 47238 
MMMES 013376 2305 49308 
MMRESP 012527 2303 2311 2334 2427 48618 
MMSRO = 177572 19658 2313 2e4Se% 4723% 
00 28 3972 39978 
MR = 007502 3924 39708 
02 3932 39718 

MTO 011672 2158 2404 47168 

XEND 010342 3714 3729 42128 
MUWRITE 73 3923 3927 39428 
NEWLNE = co 20188 4317 
NEWP 001174 21998 2205 2207 2209 2ell 2212 4740 
NEWP10 001460 2250 22758 2282 
NEWP 001704 2323 23490 
NOLIN = Q00014 20238 2024 
NOP = 03 20178 3665 
NXM = 00 eO4es 3488 
NXMMSG 013706 3584 49308 
OCTDMP 004670 2818 28sé6 2988 3182s 
OC TEX 004744 31998 
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4927 


4S10# 


ue" 


4530 


4727 


2898 
3308* 


3984 


3672 
41728 


ig28s 


2537 


3394S 


4S8S* 


3987 


4S4S8 


4739 


2900* 
3309 


3987* 
3732* 


a384 


2es40 


4277 


4590 


4001 


2901* 
3321 


4O00* 
3775 


433e5 


3346 


4346 


4729 


41le 


2933 
3322 


4001 
3782 


wa) 78 
4361# 
34S3 


49038 


‘Slee 


2935 298s* 2986 
49188 


4003 4174*% 422s 
3794 3827 3866 


age 3982 4060# 
4375+ 
4eSoes 


SEG O116 
SES O116 


3896 


42S7# 


NOS 


MAINDEC-11-DZDOXI-B NEW DxX11-B RESPONDER MACY1i 30A(10S2) O1-FEB-78 09:46 PAGE 118 
CoBNTe Pit 30-JAN-78 14:19 CROSS REFERENSE TABLE -- USER SYMBOLS 
SLCMD = 000001 19928 3595 3601% 3827% 3866% 3959 3997%# 4176 4261 
SMI = lle 20208 3081 
2 a oc dea 
= 
SOUTB = 10 hs A 2S61% 2eSbe% 3079 332i 3521 3847 3863 3981 
SPACE = 000040 19738 3090 3094 oa 
SRBYTC= OOO014 19998 3733% 3830% 3872 3943 3947# 3953 3955 3973 
4010 4175 42178 422° 4284 4307 4309# 
= 000017 20018 2740# 3106# 3517% 3600* 3780 3842 384S+# 3898 
SRD10 007142 3856 38668 
sie Bel i. 
SSENSE= 000002 19938 2739% 3029# 3516% 3549* 3682 3690* 3696+ 3736 
3975# 4013# 406 1% 4110 ’ 
SSRMI 007020 3808 38398 
SSTACK= 012636 2142 e669 48738 
SSTAT = Q00003 199468 3520# 3641 4037+ 4O4U4s 4O71# 4085S 4087 4101 
STAMOD= 000100 20gle 
\ 001000 2120 21278 4732 
STKSTB= 20sse 
STMSG 013134 2192 4g 
e7el 27818 
STOPDX 00334 2675 2783 2809s 
STOUT 010059 4038 404S 40828 
STPDX 006532 3 3640 3655 3731 37448 
STPMES 014016 2812 49308 . 
STSPW 013114 247Be 3027 3052 4022 4096 4197 49168 
SUDEV 010230 3073 3473 3629 3774 3895 41438 4171 
SUDEX 010eS2 4147 41508 
SUDIO 010240 4146@ 4149 
SWRITE 006730 37939 3803 38218 
SYSINT 001006 2127 21428 
SYSRST= 010000 2cO44a 3451 
TBUF = 012640 2173 eby2 2682 29397 GyYy 4451 4OEY YYog 488e8 
TBUFE 012740 4470 4884s 
TCHE oo0S624 3498 35008 
TCHIS ble 3495 34978 3642 
TCMACT 13053 2636% 2640 2670 2676 2987% 2995 4441 Y4yE 44SO# 
Tc 13054 2637% 2638 ebQle 2884 2904 23961 4443 48938 
TCMDTB OO3044 268s 2704s 
TCUEND 005636 3501 SO38 
TESEND OOSS6&6 3489 34918 
TESTMS 013534 2360 49308 
TI ooss4#e 3483 348s 
TKB 01e4S6 4422 48298 
TKIN 010744 1S1 44°08 
TKS 0124S4 2179% 48288 
TNXM o00sss4 486 34888 
TOOC 017051 344 49308 
TOUTRT 011710 4717 47258 
TPARER 00 3492 34948 
TPB 012462 4Sil* 4e31% 
TPTR eee tet Pt hl W474 4yees 
* * % 
TSELRS 005530 34828 


4263 4265 
4000 40S1 
3986* 3998 


3976 3979# 


3628*: 3841* 


4173 


48928 


4278 


4305 


4002 


3870+ 


B10 
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TSTTYP 1 358 ge 4 3$24 3626 3839 3971 
T 1 978 3 Pi 
TTP 1 98 749* 3378 3411 34378 46978 
TTSi¢e* 8 243g Scao 2893 2898 23900 32% 
TT 44308 “434s 4S 490S8 
UCHK = 20968 2490 2530 2600 2601 3053 3641 
UCHKS = e04be 
xP = 1 20978 
48 * 22138 2214*# 2405 4eSéa 
4 49308 
UN 4 2 e222 47388 
10e e4ebe 8 24S3% 2474 49118 
verre 10 S3aee 
VEC 12520 2223 235% e4is 46578 
13232 22. 49308 
Ol3leb 2166 4Sels8 
VSTRT 12636 2165 gies 48618 
13056 3139# 140 3i4e% 31% 4e9Sea 
WK 1 13057 3143 314S# 48968 
XADDR O1311e2 2576s 2756 491S6 ; 
= 017110 2lile 21198 21268 26038 $3970 4e72e@ 4672 


- ABS. 017110 ood 


ERRORS DETECTED: O 
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RUN-TIME RATIO: 356/17=c0.6 
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